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

program noname;
type massiv=array[1..35] of real;
var x:massiv;
    i,n:integer;
begin
for i:=1 to n do read(x[i]);
x[0]:=x[n];
for i:=0 to n-1 do write(x[i]);
end.