program e;var mas 2 : array [1..10, 1..10] ofinteger;i, j, k

Program e;
var mas 2 : array [1..10, 1..10] of
integer;
i, j, k : integer
begin
for i := 1 to 10 do - здесь
for j := 1 to 10 do - тут
read (mas2[i, j];
(mas2[1+j]lt;0); - отсюда мог спутать порядок
for i := 1 to 10 do - и тут
for j := 1 to 10 do - и тут
then
k := k+1
writeln(k)
end.

ВОПРОС : Почему цикл for употребляется два раза ?