program ribaltamento;
const
    dim=999;
var
    V:array[1..dim]of integer;
    d,i,a:integer;
begin
    writeln('Dammi la dimensione del vettore');
    repeat
        readln(d);
        if(d>dim)then
            writeln('Il massimo che puoi inserire qui è 999');
    until(d<=dim);
    writeln('Ora dammi i valori del vettore');
    for i:=1 to d do
        readln(V[i]);
    for i:=1 to (d div 2) do
        begin
            a:=V[i];
            V[i]:=V[d+1-i];
            V[d+1-i]:=a;
        end;
    for i:=1 to d do
        writeln(V[i]);
end.