Ввести двумерный массив А (3 х4). Определить в нём количество

элементов, квадрат которых больше 25

Uses crt;

const n=3;

m=4;

var a:array[1 ... n, 1 ... m] of integer;

i, j, k:integer;

begin

for i:=1 to n do

begin

for j:=1 to m do

readln (a[i, j]) ;

writeln;

end;

writeln;

k:=0;

for i:=1 to n do

for j:=1 to m do

if (a[i, j]*a[i, j]>25) then inc (k) ;

writeln (k) ;

end.