Из четырех заданных чисел, четные сложить, а нечетные вычесть — Pascal(Паскаль)

program zd2;
uses ctr;
var
a,b,c,d:integer; f,s:real;
 begin
clrscr;
     write('Введите первое число a=');readln(a);
     write('Введите второе число b=');readln(b);
     write('Введите третье число c=');readln(c);
     write('Введите четвертое число d=');readln(d);
             f:=0; s:=0;
if a mod 2=0 then s:=s+a else f:=f-a;
if b mod 2=0 then s:=s+b else f:=f-b;
if c mod 2=0 then s:=s+c else f:=f-c;
if d mod 2=0 then s:=s+d else f:=f-d;          
writeln('Сумма четных', s);
             writeln('Разность нечетных', f);
readkey;
end.