2) Дано целое число X. Определить кратно ли оно 2, 3 и целому числу P.

НЕ работает! выдает ошибку ..Program1.pas(1) : Встречено '<', а ожидался идентификатор

Это программа на С++, не на Pascal.

#include <iostream>using namespace std;bool isMultiple(int n, int m);int main() {    setlocale(LC_ALL,"Russian");    int x, p;    cout << "x = ";    cin >> x;    cout << "p = ";    cin >> p;    int check[3] = { 2, 3, p },        l = sizeof(check)/sizeof(*check);    for(size_t i = 0; i < l; ++i) {        if ( isMultiple(x, check[i]) ) {           cout << "x кратное " << check[i] << '';        }        else {            cout << "x не кратное " << check[i] << '';        }    }    return 0;}bool isMultiple(int n, int m) {    if (n % m == 0) {        return true;    }    else {        return false;    }}