program Project2; {$APPTYPE CONSOLE} uses SysUtils; var temp,s:string; a:array[0..100] of integer; o:array[0..100] of string; n,i,k:integer; begin readln(s); //початок n:=length(s); i:=1;k:=0; temp:=''; while s[i] in ['0'..'9'] do begin temp:=temp+s[i];i:=i+1;end; a[k]:=strtoint(temp); k:=k+1; while i<=n do begin temp:=''; while not(s[i] in ['0'..'9']) do begin temp:=temp+s[i];i:=i+1;end; o[k]:=temp; temp:=''; while s[i] in ['0'..'9'] do begin temp:=temp+s[i];i:=i+1;end; a[k]:=strtoint(temp); if o[k]='*' then begin a[k-1]:=a[k]*a[k-1];k:=k-1; end; k:=k+1; end; // виведення після множення for i:=0 to k-1 do writeln(a[i],' ',o[i]);readln; s:=inttostr(a[0]); for i:=1 to k-1 do s:=s+o[i]+inttostr(a[i]); writeln(s);readln; //початок n:=length(s); i:=1;k:=0; temp:=''; while s[i] in ['0'..'9'] do begin temp:=temp+s[i];i:=i+1;end; a[k]:=strtoint(temp); k:=k+1; while i<=n do begin temp:=''; while not(s[i] in ['0'..'9']) do begin temp:=temp+s[i];i:=i+1;end; o[k]:=temp; temp:=''; while s[i] in ['0'..'9'] do begin temp:=temp+s[i];i:=i+1;end; a[k]:=strtoint(temp); if o[k]='+' then begin a[k-1]:=a[k]+a[k-1];k:=k-1; end; k:=k+1; end; // виведення після множення for i:=0 to k-1 do writeln(a[i],' ',o[i]);readln; s:=inttostr(a[0]); for i:=1 to k-1 do s:=s+o[i]+inttostr(a[i]); writeln(s);readln; end.