uses crt; var n,i : integer; a : array[1..100] of integer; s : longint; begin clrscr; repeat write('Nhap so nguyen n:'); readln(n); until n>10; for I:=1 to n do begin write('Nhap so nguyen thu ',i,' la :'); readln(a[i]); end; for i:=1 to n do s:=s+a[i]; write('Tong cac so vua nhap :', s:1); readln end.
