Напишите программу в Паскале:Вводится 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.