Функции на паскале

[Юля787]

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

на паскале

[Анатоль]

Хд) За что те репутацию сняли? Вот код функции.
function proverka(a:longint):boolean;
var
x : longint;
begin
x := trunc(sqrt(a));
if (x*x) = a then
proverka := true
else
proverka := false;
end.