"среди чисел a,b,c,d найти сумму целых чисел " составьте программу по этой на pascal abc

Var
  a,b,c,d:real;
  s:integer;
begin
  Write('Введите a b c d: ');  Read(a,b,c,d);
  if frac(a)=0 then s:=Trunc(a) else s:=0;
  if frac(b)=0 then s:=s+Trunc(b);
  if frac(c)=0 then s:=s+Trunc(c);
  if frac(d)=0 then s:=s+Trunc(d);
  Writeln('S=',s)
end.

Пример
Введите a b c d: 2.5 6 -3 -1.75
S=3