uses crt;
Var A:array[1..100] of integer;
 n,i:integer;
Begin
        clrscr;
        write('Nhap n: '); readln(n);
        for i:=1 to n do
        begin
        write('A[',i,']=');
        readln(A[i]);
        end;
        for i:=1 to n do
        write(A[i],',');
        readln;
End.

Program chuongtrinhdeptrai;
uses crt;
Var A : array[1..100] of longint;
Var i,n: longint;
begin
clrscr;
write('nhap dai day so nguyen:');readln(n);
for i:=1 to n do
begin
write('A[' ,i, ']=');readln(a[i]);
end;
for i:=1 to n do begin
writeln('cac phan tu trong mang:',A[i],' ');
end;
readln;
end.