Вводятся 5 чисел. Определить, сколько среди них целых. составить алгоритм с циклом с условием

program zz1;

var b, i:integer; / / задаем переменные целого типа

a:real; / / задаем переменную не целого типа

begin

i:=1; / / задаем начальное значение для параметра цикла

while i < = 5 do / / организуем цикл с условием, пока параметр цикла не достигнет пяти

begin

read (a); / / вводим очередное число

if frac (a) = 0 then b:=b + 1; / / проверяем, если дробная часть у введенного числа равно нулю, то считаем количество

i:=i + 1; / / увеличиваем параметр цикла

end;

write (' количество целых среди введенных чисел = ', b); / / выводим ответ

end.