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