<![CDATA[
program matrici(input,output);
var
a,b:integer;
matr:array[1..3,1..5] of integer;
c,d:integer;
begin
for a:=1 to 3 do
begin
for b:=1 to 5 do
begin
write('matr[',a,',',b,']=');
readln(matr[a,b]);
writeln
end
end;
for c:=1 to 3 do
begin
for d:=1 to 5 do
begin
writeln(matr[c,d])
end
end;
end.
]]>