viết 1 chương trình thục hiện các yêu cầu sau a, nhạp vào dãy n số tự nhiên bất kì nhỏ hơn 100 từ ban phím

uses crt;

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

i,n: byte;

begin

clrscr;

write (‘nhap n: ‘);   readln (n);

for i:=1 to n do

begin

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

end;

writeln (‘day vua nhap la: ‘);

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

readln;

end.