program oken; uses crt; var a: array [1..45] of integer; i:byte; begin clrscr; writeln('Nhap mang gom 45 phan tu'); for i:=1 to 45 do begin write('A[',i,']: '); readln(a[i]); end; write('Xuat mang nguoc lai: '); for i:=45 downto 1 do write(a[i],' '); readln; end.