Program R0kS;
uses wincrt;
type tab=array[1..15] of integer;
var t:tab;
i,n,e,z:integer;
Begin
repeat
writeln('n=');
readln(n);
until (n>=1) and (n<=15);
for i:=1 to n do
begin
writeln('saisir la case',' ',i);
readln(t[i]);
end;
for i := 1 to n do
 write(t[i],'/');
 writeln;
e:=n+1;
for i:=1 to n do
begin
e:=e-1;
z :=  t[i] ;
                                write(z,'  ');
t[i]:= t[e];
                                write(t[i],'  ');

t[e] := z ;
                                writeln;
end;
for i := 1 to n do
 write(t[i],'/');

end.