Подскажите ! program z1; var a, b, c, d, f: real; var x: integer; begin a: = x div 1000; d: = x div 10; b: = (x div 100) mod 10; c: = ( x mod 100) div 10; f: = a+b+c+d; if (f) then write ('нет') else write('да'); end. if (f) then в этой строчке что-то пропущено не могу понять что. скажите !
var
x, a, b, c, d, f: integer;
begin
readln(x);
a := x div 1000;
b := (x div 100) mod 10;
c := (x mod 100) div 10;
d := x mod 10;
f := a + b + c + d;
if f mod 2 = 0 then
write('нет')
else
write('да');
end.