program mang;
uses crt;
var i,n:integer;
      A:array[1..100] of integer;
begin
clrscr;
writeln('nhap vao so cac phan tu: ');readln(n);
writeln('nhap vao gia tri cho tung phan tu: ');
for i:=1 to n 
begin
writeln('A[',i,']=');readln(A[i]);
end;
for i:=1 to n do writeln(A[i]);
readln
end.