program phuongt; uses crt; var A: array[1..500] of integer; i, n: integer; begin clrscr; write('Nhap do dai cua day so = '); readln(n); for i:=1 to n do begin write('A[', i, '] = '); readln(A[i]); end; readln end.
program phuongt; uses crt; var A: array[1..500] of integer; i, n: integer; begin clrscr; write('Do dai cua day so la = '); readln(n); for i:=1 to n do begin write('A[', i, '] = '); readln(A[i]); end; readln end.