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