Напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух знаков

const cf=['0'..'9'];
var s,s1,s2:string;
    a,b,c,res:integer;
    c1,c2:char;
begin
writeln('Введите строку в виде число, знак(+ -), число, знак(+ -)');
readln(s);
s1:='';
while s[1] in cf do
 begin
  s1:=s1+s[1];
  delete(s,1,1);
 end;
c1:=s[1];
delete(s,1,1);
s2:='';
while s[1] in cf do
 begin
  s2:=s2+s[1];
  delete(s,1,1);
 end;
c2:=s[1];
res:=strtoint(s1);
if c1='+' then res:=res+strtoint(s2)
else res:=res-strtoint(s2);
if c2='+' then res:=res+strtoint(s)
else res:=res-strtoint(s);
write('Ответ: ',res)
end.

var s,s1,s2:string;
r,n,n1,n2:integer;
begin
writeln ('Введите выражение');
readl(s);
n:=pos('+',s);
s1:=copy(s,1,n-1);
delete(s,1,n);
val(s1,n1,r);
n:=pos('+',s);
s2:=copy(s,1,n-1);
delete(s2,n2,r);
val(s2,n2,r);
val(s,n,r);
writeln('ответ',n1+n2+n);
end.

var
  c: char;
  s: string;
  r: integer;
 
begin
  r := 0;
  s := '';
  while not eoln do
    begin
      read(c);
      if c in ['+', '-']
        then begin
          r := r + strtoint(s);
          s := ''
        end;
      s := s + c
    end;
  readln;
  writeln(r + strtoint(s))
end.

var
  s, x: string;
  r, i: integer;
 
begin
  readln(s);
  r := 0;
  x := '';
  for i := 1 to length(s) do
    begin
      x := x + s[i];
      if (i = length(s)) or (s[i + 1] in ['+', '-'])
        then begin
          r := r + strtoint(x);
          x := ''
        end
    end;
  writeln(r)
end.