за решение примера по информатике

ответ 25,356/#+_9₽!")#!₽9#;_947_7₽7₽7₽+"(")₽₽(₽_(

ш, с, в (о-дин, д-ва, т-ри, ч-етыре, п-ять, ш-есть, с-емь, в-

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.