Подскажите пожалуйста!
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 В этой строчке что-то пропущено не могу понять что.
Скажите пожалуйста!!!!!!!

например данная задача отвечает на вопрос - четная ли сумма чисел введенного 4 значного числа?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.