program kaito; uses crt; var n, i, s: integer; a: array[1..10000] of integer; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do begin write('Nhap so hang thu ',i,': '); readln(a[i]); s:=s+a[i]; end; writeln('Tong cac so hang la: ',s); readln end.
