Подсчитать количество целых среди чисел а, b, с.

Составить программу.

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.