program oken; uses crt; var a: array [1..100] of integer; i,n: integer; begin clrscr; write('Nhap so phan tu cua mang: '); readln(n); for i:=1 to n do begin write('a[',i,']: '); readln(a[i]); end; write('Mang vua nhap: '); for i:=1 to n do write(a[i],' '); readln; end.
