program z8_17;
uses crt;
const m=6; n=6;
var a:array[1..m,1..n] of integer;
i,j:integer;
BEGIN
clrscr;
for i:=1 to m do begin
for j:=1 to n do
begin
a[i,m-j+1]:=(i-1)*m+j;
end; end;
for i:=1 to m do begin
for j:=1 to n do
begin
write(a[i,j]:6);
end; writeln;
end;
End.