program Project6;
{$APPTYPE CONSOLE}
var a:array[1..100] of integer;
i,k,n,temp:integer;
begin
writeln('Vvedit kilkist elementiv v masyvi A[1..n]');
readln(n);
for i:=1 to n do begin
writeln('Vvedit ',i,' element masyvu A');readln(a[i]);end;
for i:=1 to n div 2 do begin
temp:=a[i];
a[i]:=a[n-i+1];
a[n-i+1]:=temp;end;
for i:=1 to n do begin
write(a[i],' ');end;
readln;
end.