Program PascalGuru;
 
var s,sub:string;
    i,n,p,code,summa:integer;
 
begin
write('Vvedite stroku: '); readln(s);
 
if pos('++',s)<>0 then
                      writeln('Error...')
                  else
                   begin
                    summa:=0;
                    p:=pos('+',s);
                    repeat
                    sub:=copy(s,1,p-1 );
                    delete(s,1,p);
                    p:=pos('+',s);
 
                    val(sub,n,code);
                    summa:=summa+n;
                    until p=0;
                    val(s,n,code);
                    summa:=summa+n;
 
                   writeln('Summa: ',summa);
                   end;
 
 
readln;
end.