program test4(output);
var a1:array[2..10,1..5] of integer;

procedure one(var a:array[l..u:integer]of integer);
begin
a[l]:=u;
a[u]:=l;
writeln(a[l],a[u]);
end;

procedure two(var b:array[l1..u1:integer;l2..u2:integer]of integer);
begin
one(b[l1]);
end;

begin
two(a1);
writeln(a1[2,1],a1[2,5])
end.