Как начать программировать на C++, не уходя с Pascal

//программа нахождения корней уравнения
#include "Pascal.h"
program z1
begin
        var a,b,c,D,z:integer;
        var x1,x2,g:real;
        writeln("vvedite a");
        read(a);
        writeln("vvedite b");
        read(b);
        writeln("vvedite c");
        read(c);
        D = b*b - 4*a*c;
        IF (D<0) They
            writeln("kornej net");
        IF (D==0)
        begin
            x1 = -b/(2*a);
            write("x0 = ");
            write(x1);
        end
        IF (D>0)
        begin
            x1 = (-b+sqrt(D))/(2*a);
            x2 = (-b-sqrt(D))/(2*a);
            write("x1 = ");
            writeln(x1);
            write("x2 = ");
            write(x2);
        end
        readln;
        readln;//для остановки перед выходом
end

#include "pascal.h"
int main()
{
char *mass = "
//begin ---макрос меняется на все что выше
 
код на паскале
 
 
\0
//end
}

R"pascal(
тут код
)pascal"