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

program zz1;

const n = 5;  // задаем количество элементов в массиве

var  i, k:integer; // задаем переменные целого типа

a:array [1..n] of integer;

begin

for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

a[i]:=random(51);

for i:=1 to n do  // выводим исходный массив на экран в строку

write(a[i], \' \');

writeln;    // переходим на новую строку для вывода ответа

for i:=1 to n do  

  if frac(sqrt(a[i])) = 0 then k:=k + 1; // проверяем, если корень квадратный от числа дает в дробной части ноль, то считаем это число

write( \' кол-во чисел ai (i=1,2...n), являющихся полными квадратами = \', k);   //выводим ответ

end.