Подскажите пожалуйста!Program z1;var a, b, c, d, f: real;var x: integer;begina:= 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) thenwrite ('нет')elsewrite('да');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.