var
a, b, c:real;
count:integer;
begin
count := 0;
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if Frac(a) = 0 then
count := count + 1;
if Frac(b) = 0 then
count := count + 1;
if Frac(c) = 0 then
count := count + 1;
writeln('Целых чисел - ', count);
end.