program matrix;
uses crt;
var i: integer;
e,f: array[1..5] of integer;
begin
clrscr;
for i:=1 to 5 do
        begin
        e[i]:=i;
        f[i]:=6-i;
        end;
for i:=1 to 5 do
write(e[i]);
writeln;
for i:=1 to 5 do
write(f[i]);
for i:=1 to 5 do
write(e[i]);
writeln;
for i:=1 to 5 do
write(f[i]);
readln;
end.