program z7_120;
uses crt;
const n=6;
var a:array[1..n] of integer;
i:integer;
procedure swap(var x,y:integer);
var t:integer;
BEGIN
t:=x;
x:=y;
y:=t;
end;
BEGIN
randomize;
for i:= 1 to n do begin
a[i]:=random(12)+1; write(a[i]:5);
end;
writeln;
for i:=1 to 3 do swap(a[i],a[n+-3]);
for i:=n downto 1 do begin
write(a[i]:5);
end;
writeln;
readln;
end.