program zna4;
uses crt;
var
  rjadok:string;
  r2:string;
  code:integer;
  i,po4,ks:byte;
  zna4ennja,tsch:integer;
begin
  clrscr;
  po4:=1;
  zna4ennja:=0;
  writeln('введите строку, используя только числа и знаки + и *');
  readln(rjadok);
  for i:=1 to length(rjadok) do
    begin
      if (rjadok[i]<>'0') and (rjadok[i]<>'1') and (rjadok[i]<>'2') and (rjadok[i]<>'3') and (rjadok[i]<>'4') and (rjadok[i]<>'5')
      and (rjadok[i]<>'6') and (rjadok[i]<>'7') and (rjadok[i]<>'8') and (rjadok[i]<>'9') and (rjadok[i]<>'+') and (rjadok[i]<>'*')
      then
        begin
         writeln('использовано недопустимый символ');
         exit;
        end;
    end;
  ks:=0;
  for i:=1 to length(rjadok) do
    begin
      if (rjadok[i])='+' then
        begin
          ks:=i-ks;
          r2:=copy(rjadok, po4, ks);
          po4:=po4+i;
          val(r2,tsch,code);
          zna4ennja:=zna4ennja+tsch;
        end;
      if (rjadok[i]='*')then
        begin
          r2:=copy(rjadok,po4,i);
          po4:=po4+i;
          val(r2,tsch,code);
          zna4ennja:=zna4ennja*tsch;
        end;
    end;
  write(r2);
  writeln('значенье строки  ',rjadok,' =',zna4ennja);
  readkey;
  end.