program oken;
uses crt;
var a: array [1..100] of intger;
i,n:integer;
begin
clrscr;
write('nhap so phan tu cua mag: '); readln(n);
for i:=1 to n do
begin
write('a[',i']: '); readln(a[i]);
end;
writeln('mang theo thu tu nguoc lai');
for i:=n downto 1 do
write(a[i],' ');
readln;
end.