program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n: integer;
begin
clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('A[', i, '] = '); readln(A[i]);
end;
write('Day so vua nhap theo chieu nguoc la: ');
for i:=n downto 1 do write(A[i], ' ');
readln
end.