Перевести с паскаль на С++

function tostring(s1:string):string;
var
  s:string;
  SOut:string;
  stmp:string;
 
function IntToStr(i:longint):string;
var
  r:string;
begin
  str(i,r);
  IntToStr:=r;
end;
 
function StrToInt(s:string):longint;
var
  r,c:longint;
begin
  Val(s,r,c);
  StrToInt:=r;
end;  
 
function getrubl(c:char):string;
begin
  case c of
    '0','5','6','7','8','9':getrubl:=' рублей';
    '1':getrubl:=' рубль';
    '2','3','4':getrubl:=' рубля';
  end;
end;
 
function getnum1(c:char):string;
begin
  case c of
    '0':getnum1:=' ноль';
    '1':getnum1:=' один';
    '2':getnum1:=' два';
    '3':getnum1:=' три';
    '4':getnum1:=' четыре';
    '5':getnum1:=' пять';
    '6':getnum1:=' шесть';
    '7':getnum1:=' семь';
    '8':getnum1:=' восемь';
    '9':getnum1:=' девять';
  end;
end;
 
function getnum2(s2:string):string;
begin
  case strtoint(s2) of
    10:getnum2:=' десять'+getrubl('8');
    11:getnum2:=' одиннадцать'+getrubl('8');
    12:getnum2:=' двенадцать'+getrubl('8');
    13:getnum2:=' тринадцать'+getrubl('8');
    14:getnum2:=' четырнадцать'+getrubl('8');
    15:getnum2:=' пятнадцать'+getrubl('8');
    16:getnum2:=' шестнадцать'+getrubl('8');
    17:getnum2:=' семнадцать'+getrubl('8');
    18:getnum2:=' восемнадцать'+getrubl('8');
    19:getnum2:=' девятнадцать'+getrubl('8');
    20:getnum2:=' двадцать'+getrubl('8');
    21..29:getnum2:=' двадцать'+getnum1(s2[2])+getrubl(s2[2]);
    30:getnum2:=' тридцать'+getrubl('8');
    31..39:getnum2:=' тридцать'+getnum1(s2[2])+getrubl(s2[2]);
    40:getnum2:=' сорок'+getrubl('8');
    41..49:getnum2:=' сорок'+getnum1(s2[2])+getrubl(s2[2]);
    50:getnum2:=' пятьдесят'+getrubl('8');
    51..59:getnum2:=' пятьдесят'+getnum1(s2[2])+getrubl(s2[2]);
    60:getnum2:=' шестьдесят'+getrubl('8');
    61..69:getnum2:=' шестьдесят'+getnum1(s2[2])+getrubl(s2[2]);
    70:getnum2:=' семьдесят'+getrubl('8');
    71..79:getnum2:=' семьдесят'+getnum1(s2[2])+getrubl(s2[2]);
    80:getnum2:=' восемьдесят'+getrubl('8');
    81..89:getnum2:=' восемьдесят'+getnum1(s2[2])+getrubl(s2[2]);
    90:getnum2:=' девяносто'+getrubl('8');
    91..99:getnum2:=' девяносто'+getnum1(s2[2])+getrubl(s2[2]);
  end;
 
end;
 
function getnum3(c:char):string;
begin
  case c of
    '1':getnum3:=' сто';
    '2':getnum3:=' двести';
    '3':getnum3:=' триста';
    '4':getnum3:=' четыреста';
    '5':getnum3:=' пятьсот';
    '6':getnum3:=' шестьсот';
    '7':getnum3:=' семьсот';
    '8':getnum3:=' восемьсот';
    '9':getnum3:=' девятьсот';
  end;
end;
 
procedure getnum33;
begin
        if s[2]<>'0' then
          SOut:=SOut+getnum3(s[1])+getnum2(s[2]+s[3])
        else
        if (s[2]='0') and (s[3]<>'0') then
          SOut:=SOut+getnum3(s[1])+getnum1(s[3])+getrubl(s[3])
        else
          SOut:=SOut+getnum3(s[1])+getrubl('8');
end;
 
function getnum4(c:char):string;
begin
  case c of
    '1':getnum4:=' одна тысяча';
    '2':getnum4:=' две тысячи';
    '3':getnum4:=' три тысячи';
    '4':getnum4:=' четыре тысячи';
    '5':getnum4:=' пять тысяч';
    '6':getnum4:=' шесть тысяч';
    '7':getnum4:=' семь тысяч';
    '8':getnum4:=' восемь тысяч';
    '9':getnum4:=' девять тысяч';
  end;
end;
 
function getnum5(s2:string):string;
begin
  case strtoint(s2) of
    10:getnum5:=' десять тысяч';
    11:getnum5:=' одиннадцать тысяч';
    12:getnum5:=' двенадцать тысяч';
    13:getnum5:=' тринадцать тысяч';
    14:getnum5:=' четырнадцать тысяч';
    15:getnum5:=' пятнадцать тысяч';
    16:getnum5:=' шестнадцать тысяч';
    17:getnum5:=' семнадцать тысяч';
    18:getnum5:=' восемнадцать тысяч';
    19:getnum5:=' девятнадцать тысяч';
    20:getnum5:=' двадцать тысяч';
    21..29:begin
            case s2[2] of
             '1':getnum5:=' двадцать одна тысяча';
             '2':getnum5:=' двадцать две тысячи';
             '3','4':getnum5:=' двадцать'+getnum1(s2[2])+' тысячи';
             else getnum5:=' двадцать'+getnum1(s2[2])+' тысяч';
            end;
           end;
    30:getnum5:=' тридцать тысяч';
    31..39:begin
            case s2[2] of
             '1':getnum5:=' тридцать одна тысяча';
             '2':getnum5:=' тридцать две тысячи';
             '3','4':getnum5:=' тридцать'+getnum1(s2[2])+' тысячи';
             else getnum5:=' тридцать'+getnum1(s2[2])+' тысяч';
            end;
           end;
    40:getnum5:=' сорок тысяч';
    41..49:begin
            case s2[2] of
             '1':getnum5:=' сорок одна тысяча';
             '2':getnum5:=' сорок две тысячи';
             '3','4':getnum5:=' сорок'+getnum1(s2[2])+' тысячи';
             else getnum5:=' сорок'+getnum1(s2[2])+' тысяч';
            end;
           end;
    50:getnum5:=' пятьдесят тысяч';
    51..59:begin
            case s2[2] of
             '1':getnum5:=' пятьдесят одна тысяча';
             '2':getnum5:=' пятьдесят две тысячи';
             '3','4':getnum5:=' пятьдесят'+getnum1(s2[2])+' тысячи';
             else getnum5:=' пятьдесят'+getnum1(s2[2])+' тысяч';
            end;
           end;
 
    60:getnum5:=' шестьдесят тысяч';
    61..69:begin
            case s2[2] of
             '1':getnum5:=' шестьдесят одна тысяча';
             '2':getnum5:=' шестьдесят две тысячи';
             '3','4':getnum5:=' шестьдесят'+getnum1(s2[2])+' тысячи';
             else getnum5:=' шестьдесят'+getnum1(s2[2])+' тысяч';
            end;
           end;
 
    70:getnum5:=' семьдесят тысяч';
    71..79:begin
            case s2[2] of
             '1':getnum5:=' семьдесят одна тысяча';
             '2':getnum5:=' семьдесят две тысячи';
             '3','4':getnum5:=' семьдесят'+getnum1(s2[2])+' тысячи';
             else getnum5:=' семьдесят'+getnum1(s2[2])+' тысяч';
            end;
           end;
 
    80:getnum5:=' восемьдесят тысяч';
    81..89:begin
            case s2[2] of
             '1':getnum5:=' восемьдесят одна тысяча';
             '2':getnum5:=' восемьдесят две тысячи';
             '3','4':getnum5:=' восемьдесят'+getnum1(s2[2])+' тысячи';
             else getnum5:=' восемьдесят'+getnum1(s2[2])+' тысяч';
            end;
           end;
 
    90:getnum5:=' девяносто тысяч';
    91..99:begin
            case s2[2] of
             '1':getnum5:=' девяносто одна тысяча';
             '2':getnum5:=' девяносто две тысячи';
             '3','4':getnum5:=' девяносто'+getnum1(s2[2])+' тысячи';
             else getnum5:=' девяносто'+getnum1(s2[2])+' тысяч';
            end;
           end;
 
  end;
 end;
 
function getnum6(s2:string):string;
begin
  case strtoint(s2) of
    10:getnum6:=' десять миллионов';
    11:getnum6:=' одиннадцать миллионов';
    12:getnum6:=' двенадцать миллионов';
    13:getnum6:=' тринадцать миллионов';
    14:getnum6:=' четырнадцать миллионов';
    15:getnum6:=' пятнадцать миллионов';
    16:getnum6:=' шестнадцать миллионов';
    17:getnum6:=' семнадцать миллионов';
    18:getnum6:=' восемнадцать миллионов';
    19:getnum6:=' девятнадцать миллионов';
    20:getnum6:=' двадцать миллионов';
    21..29:begin
            case s2[2] of
             '1':getnum6:=' двадцать один миллион';
             '2':getnum6:=' двадцать два миллиона';
             '3','4':getnum6:=' двадцать'+getnum1(s2[2])+' миллиона';
             else getnum6:=' двадцать'+getnum1(s2[2])+' миллионов';
            end;
           end;
    30:getnum6:=' тридцать миллионов';
    31..39:begin
            case s2[2] of
             '1':getnum6:=' тридцать один миллион';
             '2':getnum6:=' тридцать два миллиона';
             '3','4':getnum6:=' тридцать'+getnum1(s2[2])+' миллиона';
             else getnum6:=' тридцать'+getnum1(s2[2])+' миллионов';
            end;
           end;
    40:getnum6:=' сорок миллионов';
    41..49:begin
            case s2[2] of
             '1':getnum6:=' сорок один миллион';
             '2':getnum6:=' сорок два миллиона';
             '3','4':getnum6:=' сорок'+getnum1(s2[2])+' миллиона';
             else getnum6:=' сорок'+getnum1(s2[2])+' миллионов';
            end;
           end;
    50:getnum6:=' пятьдесят миллионов';
    51..59:begin
            case s2[2] of
             '1':getnum6:=' пятьдесят один миллион';
             '2':getnum6:=' пятьдесят два миллиона';
             '3','4':getnum6:=' пятьдесят'+getnum1(s2[2])+' миллиона';
             else getnum6:=' пятьдесят'+getnum1(s2[2])+' миллионов';
            end;
           end;
 
    60:getnum6:=' шестьдесят миллионов';
    61..69:begin
            case s2[2] of
             '1':getnum6:=' шестьдесят один миллион';
             '2':getnum6:=' шестьдесят два миллиона';
             '3','4':getnum6:=' шестьдесят'+getnum1(s2[2])+' миллиона';
             else getnum6:=' шестьдесят'+getnum1(s2[2])+' миллионов';
            end;
           end;
 
    70:getnum6:=' семьдесят миллионов';
    71..79:begin
            case s2[2] of
             '1':getnum6:=' семьдесят один миллион';
             '2':getnum6:=' семьдесят два миллиона';
             '3','4':getnum6:=' семьдесят'+getnum1(s2[2])+' миллиона';
             else getnum6:=' семьдесят'+getnum1(s2[2])+' миллиона';
            end;
           end;
 
    80:getnum6:=' восемьдесят миллионов';
    81..89:begin
            case s2[2] of
             '1':getnum6:=' восемьдесят один миллион';
             '2':getnum6:=' восемьдесят два миллиона';
             '3','4':getnum6:=' восемьдесят'+getnum1(s2[2])+' миллиона';
             else getnum6:=' восемьдесят'+getnum1(s2[2])+' миллионов';
            end;
           end;
 
    90:getnum6:=' девяносто миллионов';
    91..99:begin
            case s2[2] of
             '1':getnum6:=' девяносто один миллион';
             '2':getnum6:=' девяносто два миллиона';
             '3','4':getnum6:=' девяносто'+getnum1(s2[2])+' миллиона';
             else getnum6:=' девяносто'+getnum1(s2[2])+' миллионов';
            end;
           end;
 
  end;
 end;
 
 
begin
s:=s1;
sOut:='';
  case length(s) of
    1:SOut:=getnum1(s[1])+getrubl(s[1]);
    2:SOut:=getnum2(s);
    3:getnum33;
    4:begin
       SOut:=getnum4(s[1]);
       delete(s,1,1);
       getnum33;
      end;
    5:begin
        SOut:=getnum5(s[1]+s[2]);
        delete(s,1,2);
        getnum33;
      end;
    6:begin
        SOut:=getnum3(s[1]);
        delete(s,1,1);
        if StrToInt(s)=0 then SOut:=SOut+' тысяч рублей'
        else begin
        stmp:=SOut;
          SOut:=SOut+getnum5(s[1]+s[2]);
          if stmp=SOut then SOut:=SOut+getnum4(s[2]);
          delete(s,1,2);
          if Pos('тысяч',SOut)=0 then SOut:=SOut+' тысяч';
          getnum33;
        end;
      end;
    7:begin
        if s[1]='1' then SOut:=' один миллион' else
        if (s[1]='2') or (s[1]='3') or (s[1]='4') then SOut:=getnum1(s[1])+' миллиона' else
        SOut:=getnum1(s[1])+' миллионов';
        delete(s,1,1);
        if StrToInt(s)>0 then SOut:=SOut+tostring(IntToStr(StrToInt(s)))
        else SOut:=SOut+getrubl('0');
      end;
    8:begin
        SOut:=getnum6(s[1]+s[2]);
        delete(s,1,2);
        if StrToInt(s)>0 then SOut:=SOut+tostring(IntToStr(StrToInt(s)))
        else SOut:=SOut+getrubl('0');
      end;
    9:begin
        SOut:=getnum3(s[1]);
        delete(s,1,1);
        if length(IntToStr(StrToInt(s)))<8 then SOut:=SOut+' миллионов';
        if StrToInt(s)>0 then SOut:=SOut+tostring(IntToStr(StrToInt(s)))
        else SOut:=SOut+getrubl('0');
      end;
     10:begin
        SOut:=getnum1(s[1]);
        case s[1] of
          '1':SOut:=SOut+' миллиард';
          '2','3','4':SOut:=SOut+' миллиарда';
          else SOut:=SOut+' миллиардов';
        end;
        delete(s,1,1);
        if StrToInt(s)>0 then SOut:=SOut+tostring(IntToStr(StrToInt(s)))
        else SOut:=SOut+getrubl('0');
        end;
  end;
  tostring:=SOut;
end;
var
  s,s111,kop,koph:string;
begin
  write('enter sum:');readln(s);
  if pos('.',s)>0 then
  begin
    s111:=tostring(copy(s,1,pos('.',s)-1));
    kop:=copy(s,pos('.',s)+1,2);
    if length(kop)=1 then kop:=kop+'0';
      if kop[2]='1' then koph:=' копейка' else
      if kop[2]in ['2','3','4'] then koph:=' копейки' else
       koph:=' копеек';
        if (kop='11') or (kop='12') or (kop='13') or (kop='14') then koph:=' копеек';
         s:=s111+' '+kop+koph;
  end
  else s:=tostring(s)+' 00 копеек';
  writeln(s);
end.