var num:integer; begin writeln('Архитектор Исаакиевского собора'); writeln('1)Доменико Трезини'); writeln('2)Огюст Монферран'); writeln('3)Карл Росси'); writeln('Введите ответ и нажмите Enter'); readln(num); if num = 2 then writeln('Правильный ответ') else writeln('Ответ неверный'); writeln('Архитектор Исаакиевского собора - Огюст Монферран'); end.