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

uses crt;

var

a:array [1 ... 100] of real;

i, n, k:integer;

begin

write ('Введите количество чисел массива: '); read (n);

clrscr;

writeln ('Массив:');

for i:=1 to n do

begin

a[i]:=random (21) - 10;

if (sqr (a[i]) <10) then k:=k+1;

write (a[i],' ');

end;

writeln;

write ('Количество чисел, квадрат которых меньше 10: ', k);

end.