Добрый день , сделать . выполняется в qbasic​

#include <iostream>
using namespace std;

int main() {
 setlocale(LC_ALL, "Russian");
 int n,k;
 string s[3][3]=
 {{"1 - Перу","2 - Тайланд","3 - Венгрия"},
 {"Лима, Арекипа, Куско", "Паттайя, Чиангмай, Сиемреап", "Сентендре, Секешфехервар, Веспрем"},
 {"Все эти замечательные города находятся в Перу",
 "Паттайя и Чиангмай находятся в Тайланде, но Сиемреап - это Камбоджа",
 "Все перечисленные города с непростыми названиями находятся в Венгрии"}};
 cout << "Выбери страну по номеру: " << s[0][0] << " " << s[0][1] << " " << s[0][2] << "\n";
 cin >> n;
 cout << "Относятся ли перечисленные ниже города к выбранной стране?\n";
 cout << s[1][n-1] << "\n";
 cout << "Да-1, Нет-0 ";
 cin >> k;
 if ((n==1)&&(k==1)||(n==2)&&(k==0)||(n==3)&&(k==1)) cout << "Вы правы! \n";
 else cout << "Вы ошиблись.\n";
 cout << s[2][n-1];
 return 0;
}

ответ: 5940

var steps := 12; // За кол-во ходов
var Xend  := 7; // В точку с координатой X
var Yend  := 3; // ... и Y

var vars := 0; procedure Find(step, X, Y : Integer);

begin  
    if step = 0 then    
        vars += (X = Xend) and (Y = Yend) ? 1 : 0
    else    
        begin      
             Find(step - 1, X + 1, Y    );      
             Find(step - 1, X - 1, Y    );      
             Find(step - 1, X    , Y + 1);      
             Find(step - 1, X    , Y - 1);    
        end;
end; 
begin  
     Find(steps, 0, 0);  
     Print(vars);
end.