program phuongt; uses crt; var A: array[1..500] of integer; n, i: integer; begin clrscr; write('Nhap so nguyen n = '); readln(n); for i:=1 to n do begin write('A[', i, '] = '); readln(A[i]); end; writeln('Cac so nguyen da nhap vao la:'); for i:=1 to n do write(A[i]:3); readln end.