Найти количество чисел ai(i = 1, 2, ..., n), являющихся полными квадратами. (в Паскале)

[vasya1]

Даны натуральное число n и целые числа a1, a2...an. Найти количество чисел a1(i = 1, 2, ..., n), являющихся полными квадратами.(Определить функцию, позволяющую распознавать полные квадраты).

Const
 N=80;
Var
 A:Array[1..N] of LongInt;
 i,N1:Byte;
Begin
 Randomize;
 For i:=1 to N do A[i]:=Random(100);
 Writeln('Initial array:');
 For i:=1 to N do write(A[i]:8);
 Writeln;
 Writeln;
 N1:=0;
 Writeln;
 Writeln(N1,' numbers');
 Readln;
End.

Что здесь неправильно?
А лучше, если вы предложите свой вариант решения)




___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[VIK_aka_TOR]

позвольте узнать, что это за числа - полные квадраты... начнем пожалуй с этого)

[JustError]

Думаю, полный квадрат - это число, при извлечении корня из которого, выйдет целое число.
Хотя полный квадрат, вообще, помнится из математики - это выражение, которое можно свернуть в(х+у)^2, ну то есть х^2+2xy+y^2.

[Plague]

function Frac(x: real): real;
Возвращает дробную часть числа x
function Sqrt(x: real): real;
Возвращает квадратный корень числа x

if frac(sqrt(x)))=0 then