uses crt;
var a,b,c: real;
k:integer;
begin
writeln('Введите a,b,c: ');
read(a,b,c);
k:=0;
if frac(a)=0 then k:=k+1;
if frac(b)=0 then k:=k+1;
if frac(c)=0 then k:=k+1;
write('Количество целых=',k);
end.
