Написать программу знаний истории архитектуры. Программа должна вывести вопрос…

Var num: integer; beginwriteln ('Как назывались основные сооружения в древнем египте, служившие для захаранения фараонов? '); writeln ('1) Дольмен'); writeln ('2) Менгир'); writeln ('3) Пиримида'); writeln ('Введите ответ и нажмите Enter'); readln (num); if num=3 then writeln ('Правильный ответ') else writeln ('Ответ неверный'); end.