Program naconecto;
var
a:array[1..10] of real;
sum:real;
i:integer;
BEGIN
sum:=0;
writeln('BBeguTe II,eHbI gec9Tu aBua6uJleToB B py6Jl9x');
for i:=1 to 10 do
  begin
    readln(a[i]);
    sum:=sum+a[i];
  end;
writeln('CyMMa =',sum);
END.