Сформировать и вывести на печать матрицу а(10,10), элементы которой задать произвольно, кроме элементов, расположенных в заштрихованной области и заданных по формуле а(i, j)=i-j*j

7680*90=691200

691200/16=43200

43200/400=108 страниц

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.