Перевести код на C/C++ [требует правки]

Domains
    name_strana, name_stolica= string 
Database
    dstrana(name_strana, name_stolica)
Predicates
    repeat
    do_mbase
    assert_database
    menu
    process(integer)
    clear_database
    strana(name_strana, name_stolica)
    error
Goal
    do_mbase.
Clauses
    repeat.
    repeat:-repeat.
    strana("Russia","Moscow").
    strana("Sweden","Stockholm ").
    strana("Ukraine","Kiev").
    strana("Great Britain","London").
    strana("Germany","Berlin").
    strana("France","Paris").
    assert_database:-
    strana(name_strana,name_stolica),   
        assertz(dstrana(name_strana,name_stolica)),
    fail.
    assert_database:-!.
    clear_database:-
        retract(dstrana(_,_)),
        fail.
    clear_database:-!.
    do_mbase :-
        assert_database,
        makewindow(1,7,7," Strani i stolici",0,0,25,80),
        menu,
        clear_database.
    menu :-
        repeat, clearwindow,
        nl,
        write(" ************************************ "),nl,
        write(" * 1. Novaia strana                 * "),nl,
        write(" * 2. Ydalenie strani               * "),nl,
        write(" * 3. Prosmotr stolic               * "),nl,
        write(" * 4. Prosmotr stran                * "),nl,
        write(" * 5. Vihod                         * "),nl,
        write(" ************************************* "),nl,
        write(" Sdelaite svoi vibor 1, 2, 3, 4 ili 5 : "),
        readint(Vibor),nl,process(Vibor),Vibor = 5,!.
    process(1) :-
        makewindow(2,7,7,"Dobavit strany",2,20,18,58),shiftwindow(2),
        write("‚Vvedite pogalyista:"),nl,
        write("Nazvanie strani:"), readln(name_strana), 
        write("Nazvanie stolici:"), readln(name_stolica),
        assertz(dstrana(name_strana, name_stolica)),
        write(name_strana,"Dobavleno v BD"), nl,!,
        write("Press space bar. "), readchar(_), 
        removewindow, shiftwindow(1).

    process(2) :-
        makewindow(3,7,7,"Ydalenie",10,30,7,40),shiftwindow(3),
        write("‚Vvedite strany: "), readln(name_strana),
        retract(dstrana(name_strana,_)), 
        write(name_strana," “Ydaleno iz BD "), nl, !,
        write("Press space bar."), readchar(_), removewindow,
        shiftwindow(1).
    process(3) :-
        makewindow(4,7,7," Prosmotr solic ", 7,30,16,47),  shiftwindow(4),
        write("Vvedite strany dlia prosmotra: "), readln(name_strana),
        dstrana(name_stolica,name_strana),nl, 
        write(" Nazvanie stolici     : ",name_stolica),nl,
        write(" Nazvanie strani      : ",name_strana),nl,
        write("Press space bar"), readchar(_),  
        removewindow, shiftwindow(1).
    process(3) :-
        makewindow(5,7,7," Neudacha",14,7,5,60), shiftwindow(5),
        write("Takoi strani net."),nl,
        write("Press space bar."),readchar(_),
        removewindow,shiftwindow(1).
    process(4):-        
        makewindow(4,7,7," Prosmotr stran ", 7,30,16,47),  shiftwindow(4),
        write("Vvedite strany dlia prosmotra*: "), readln(name_strana),
        dstrana(name_strana,name_stolica),nl, 
        write("Nazvanie stolici    : ",name_strana),nl,
        write("Nazvanie strani     : ",name_stolica),nl,
        write("Press space bar"), readchar(_),  
        removewindow, shiftwindow(1).
    process(4) :-
        makewindow(5,7,7," Neudacha",14,7,5,60), shiftwindow(5),
        write("Takoi strani net."),nl,
        write("Press space bar."),readchar(_),
        removewindow,shiftwindow(1).    
    process(5) :-
        write("do novih vstrech"),readchar(_),exit.
    process(Vibor):-
        Vibor<1, error; Vibor>5, error.
    error:- 
        write("Viberete chislo ot 1 do 5"),
        write("(Press the spase bar to continue)"),readchar(_).