uses crt;

var a: array[1..100] of integer;

i,n: integer;

begin

clrscr;

write ('nhap so phan tu: ');  readln (n);

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

end;

write ('day so da nhap la: '); 

for i:=1 to n do write (a[i],'  ');

readln;

end.

`text\(xin hay nhất !!!)`

program phuongt;

uses crt;

  var A: array[1..100] of integer;

        n, i: 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 da nhap la: ');

            for i:=1 to n do write(A[i]:3);

            readln

end.