language: Pascal (fpc) (fpc 2.2.0)
date: 103 days 22 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10

program noname;
type massiv=array[1..35] of real;
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.