Можете перевести код с паскаля на С++

[vital_orsha]

Здравствуйте можете пожалуйста помочь перевести код с паскаля на с++
Вводится правильное выражение, включающее ,+,-,*,/ в строку, надо вывести его ответ.

Const mn=['+','-','*','/'];
Var s,s1,s2:string;
    n,m,k,j,i,t,p:integer;
    res:real;
    c:char;
Begin
    write('Введите выражение: ');readln(s);
    res:=0;
    For j:=1 to Length(s) do
     if not(s[j] in mn) then s1:=s1+s[j]
      else break;
    Val(s1,n,k);
    c:=s[j];
    For p:=j+1 to Length(s) do
     if not(s[p] in mn) then s2:=s2+s[p]
      else break;
    Val(s2,m,k);
    Case c of
     '+':res:=n+m;
     '-':res:=n-m;
     '*':res:=n*m;
     '/':if m<>0 then res:=n/m else t:=1;
    End;
    s1:='';s:=s+'-';
    For i:=p+1 to Length(s) do
     if not(s[i] in mn) then s1:=s1+s[i]
      else
Begin
        Val(s1,n,k);
        c:=s[i-2];
        if k=0 then
         Case c of
          '+':res:=res+n;
          '-':res:=res-n;
          '*':res:=res*n;
          '/':if n<>0 then res:=res/n else t:=1;
         End;
         s1:='';
      End;
    if t<>1 then writeln(res:0:2)
     else writeln('На ноль делить нельзя!');
    readln;
End.

[Stilet]

Приоритеты операций игнорируются?

[vital_orsha]

Сообщение от Stilet

Приоритеты операций игнорируются?

да главное, чтобы просто вычисляло, а там я сам как-нибудь

Сообщение от Stilet

Приоритеты операций игнорируются?

Сможете помочь пожалуйста?