uses crt; var f:text; n,i:longint; a:array[1..100000]of longint; begin clrscr; assign(f,'output.pas');rewrite(f); write('Nhap n: (n<=100) ');readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': ');readln(a[i]); write(f,a[i],' '); end; close(f); readln end.
