Ма
Мария
for i:=1 to 3 do
for j:=1 to 5 do
b[ i,j ]:=j;
var i,j:integer;
x:array[1..3,1..5] of integer ;
begin
for i:=1 to 3 do
begin
for j:=1 to 5 do
begin
x[ i,j ]:=j;
write(j);
end ;
writeln;
end;
readln;
end.