Решить на pascalabc.net в синтаксисе pascal abc. сколько членов последовательности являются квадратами нечетных чисел.

Var
  n,m,i,k:integer;
begin
  Write('n='); Read(n);
  Write('Вводите числа через пробел или Enter: ');
  k:=0;
  for i:=1 to n do begin
    Read(m);
    if m mod 2=1 then
      if Frac(sqrt(m))=0 then Inc(k)
    end;
  Writeln('Найдено квадратов нечетных чисел: ',k)
end.

Пример
n=10
Вводите числа через пробел или Enter: 16 49 1 5 9 121 66 71 0 -1
Найдено квадратов нечетных чисел: 4