var i,sum,x:integer;
begin
for i:=1 to 10 do
read(x);
sum:=sum+x;
end;
writeln(sum);
end.
uses crt;
var i,sum,x:integer;begin
clrscr for i:=1 to 10 dobeginread(x);sum:=sum+x;end;writeln('сумма ');end.
