Uses crt; var a: integer; begin clrscr; writeln('архитектор исаакиевского собора: '); writeln('1. доменико трезини'); writeln('2. огюст монферран'); writeln('3. карл росси'); writeln('введите номер правильного ответа и нажмите < enter> '); readln(a); if a=2 then writeln('правильно. архитектор исаакиевского собора - огюст монферран') else writeln('не правельно'); readln; end.