, 
.Hướng dẫn:
- Dùng biến n để lưu lượng số cần nhập.
- Dùng mảng để lưu các số vừa nhập.
- Cho i chạy từ n về 1 để in các số vừa nhập.
.Mã chương trình:
Program mang_1;
uses crt;
var n, i: integer;
 M: array[1..100] of real;
Begin
 write('Nhap so n: ');readln(n);
 for i:=1 to n do
 Begin
 write('M[',i,']='); readln(M[i]);
 end;
 for i:= n downto 1 do write(m[i],’ ,’);
 readln
end

CHÚC BN HC SIÊU TỐT XIN CTLHN NA # KHA9.

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.