Переделать программу из Pascal в C++ - C++ - Ответ 517342

#include <iostream.h>
#include <math.h>
#include <string.h>
#include <conio.h>
#include <dos.h>
#include <stdlib.h>
#include <stdio.h>
 
int main(int s, int r) RtoDec;                             //ob`yavlenie funkcii/
{
    int a, i, n, z, B, C, D, E, f, res, res1, res2; //obyavlenie peremennih/
    n=0;
    a=0;
    a=pos(".",s);
    B=copy(s,0,length(s)-a);
    C=copy(s,a,8);
    a=pos(".",C);
    delete(C,1,a);
    res1=0;
    res2=0;
    z=0;
    for (i=length(B); i>=1; i++)
    {
        B[i]=UpCase (B[i]);
        if B[i] in [<"0","9">] then
            n=ord (B[i])-ord ("0");
        if B[i] in [<"a","Z">] then
            n=10+ord(B[i])-ord("a");
        res1=res1+(n*(exp(z*log(r))));
        z=z+1;
    };
    n=0;
    z=0;
    for (i=length(C); i>=1; i++)
    {
        C[i]=UpCase (C[i]);
        if C[i] in [<"0","9">] then
            n=ord (C[i])-ord("0");
        if C[i] in [<"a","z">] then
            n=10+ord(C[i])-ord("a");
        z=z-1;
        res2=res2+(n*(exp(z*log(r))));
    };
    res2=abs(res2);
    str(res1:0:0,D);
    str(res2:0:8,E);
a=pos(".",E);
    delete(E,1,a);
    f=D+"."+E;
    RtoDec=f;
};                                                 //konec funkcii/
 
 
 
int (s);
int (f);
int (r);
int (a);
{
    clrscr();
    cout <<"Vvedite chislo i nagmite Enter";             //zapros chisla/
        cin >> s;                                 //prisvoenie peremennoy "S" chisla/
    cout <<"Viberite sistemu chillenia";         //zapros vvoda osnovaniya/
        cin >> r;                                 //prisvoenie peremennoy "R" znacheniya osnovaniya/
    f=RtoDec(s,r);                             //vipolnenie funkcii perevoda/
    cout <<"Chislo ",s," v sisteme schisleniya s osnovaniem ",r, " ravno ", f; //vivod resultata/
    cin;
}