Подсчитать кол-во целых чисел среди a b c

var
  a,b,c:real;
  k:integer;
begin
  Read(a,b,c);
  if frac(a)=0 then k:=1 else k:=0;
  if frac(b)=0 then Inc(k);
  if frac(c)=0 then Inc(k);
  Writeln('Чисел с нулевой дробной частью :',k)
end.