тест.рнр

апстрактна класа Религија {
    јавно €име;
    јавна апстрактна функција исправна();
    јавна апстрактна функција одакле();
}

класа Православље наслеђује Религија {
    јавно €име = 'Православље';

    јавна функција исправна() {
        врати истина;
    }

    јавна функција одакле() {
        врати 'југа';
    }
}

класа Католичанство наслеђује Религија {
    јавно €име = 'Католичанство';

    јавна функција исправна() {
        врати неистина;
    }

    јавна функција одакле() {
        врати 'запада';
    }
}

класа Ислам наслеђује Религија {
    јавно €име = 'Ислам';

    јавна функција исправна() {
        врати неистина;
    }

    јавна функција одакле() {
        врати 'блиског истока';
    }
}


//

€низ = [ново Православље, ново Католичанство, нов Ислам];

засваки (€низ као €религија) {
    акоје (€религија->исправна()) {
        пиши €религија->име, ' долази са ', €религија->одакле(), НОВИРЕД;
    } иначе {
        пиши €религија->име, '? мех...', НОВИРЕД;
    }

}