program Project1; uses crt; var a:array[1..100] of integer; n, i:integer; begin clrscr; write('Nhap vao so phan tu co trong day:='); readln(n); for i:=1 to n do begin write('Nhap vao phan tu thu ',i,' :='); readln(A[i]); end; for i:=1 to n do writeln(A[i]); readln; end.
