uses crt;
var i,s:longint; a:array[1..10] of longint;
begin
clrscr;
write('Nhap 10 so nguyen di nao: '); writeln;
for i:=1 to 10 do
begin
write('So thu ',i,' = ');readln(a[i]);
end;
for i:=1 to 10 do
s:=s+a[i];
write('Tong cua chung la: ',s);
readln
end.