Имеется массив а из n произвольных чисел а(n), среди которых есть положительные, отрицательные и равные нулю. вычислить количество чисел, квадрат которых меньше 10. так, если а={2,4,–3,3,5,–2,1}, результат: 5 (это числа 2, –3, 3, –2, 1).

Var
  A : array of real;
  i, N, num : integer;
begin
  write('Количество чисел: ');
  readln(N);
  SetLength(A, N);
  for i := 0 to N - 1 do
  begin
    write('A[', i + 1, '] = ');
    readln(A[i]);
  end;
  num := 0;
  for i := 0 to N - 1 do
    if Sqr(A[i]) < 10 then
      Inc(num);
  writeln('Таких чисел: ', num);
end.