bai2

program bai2;
uses crt;
var t:text;
var n:integer;
var a:array[1..1000] of integer;
var i:integer;
BEGIN
 clrscr;
 assign(t,'D:\11.txt');
 rewrite(t);
 write('nhap n: '); readln(n);
 for i:=1 to n do
 begin
  write('nhap pha tu thu ',i,' :'); readln(a[i]);
 end;
 for i:=1 to n do
 begin
  writeln(t,a[i]);
 end;
 close(t);
 readln;
END.