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