Подсчитать кол-во целых чисел среди 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.