uses crt; var a:array[1..1000] of longint; n,i:integer; begin clrscr; repeat write('Nhap so luong phan tu: '); readln(n); if n<=1 then writeln('Co loi! Vui long nhap lai!'); until n>1; for i:=1 to n do begin write('Phan tu thu ',i,': '); readln(a[i]); end; write('Day vua nhap: '); for i:=1 to n do write(a[i],' '); readln; end.
