var a:array[1..15] of integer;
i,temp:integer;
begin
for i:=1 to 15 do begin a[i]:=random(41)-20; write(a[i]:4); end;
temp:=a[1];
a[1]:=a[15];
a[15]:=temp;
writeln;
for i:=1 to 15 do write(a[i]:4);
end.