bai1

program bai1;
uses crt;
var n:integer;
var a:array[1..1000] of integer;
var i:integer;
BEGIN
 clrscr;
 write('nhap n: '); readln(n);
 for i:=1 to n do
 begin
  write('nhap pha tu thu ',i,' :'); readln(a[i]);
 end;
 readln;
END.