Які функції можна обчислювати в проміжних підсумках​

с cd-r информацию нельзя удалить, можно только добавить. с cd-rw- можно удалить.

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.

аборигеном                                                                                                                                                                                                                             

страус- самая крупная в мире птица. не летает