Напишите программу в Паскале:Вводится 15 чисел. Определите сколько среди них целых чисел.

var
i,x : integer; // объявляем переменные целочисленного типа.
arr : array [1..15] of real; // объявляем массив.
Begin
writeln('Введите 15 чисел для заполнения массива:'); // вывод строки на экран.
for i:= 1 to 15 do // начало цикла.
begin
readln(arr[i]); // считываем элемент массива.
if (frac(arr[i]) = 0) then // если дробная часть числа равно 0.
x := x + 1; // считаем количество элементов.
end;
writeln('Количество целых чисел в массиве: ', x); // вывод строки на экран.
End.