language: Pascal (fpc) (fpc 2.2.0)
date: 104 days 20 hours ago
link:
可見度: public
1
2
3
4
5
6
7
8
9
10
program noname;
type massiv=array[1..35] of longint;
var x:massiv;
    i,n:longint;
begin
readln(n);
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i]);
end.