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