Выручайте(ПАСКАЛЬ, не сложно вродь).
Задание на фото. буду очень благодарен.

uses crt;var c:char;i:byte;beginwrite('Программа проверки знания истории архитектуры.Начать тест?y/n');read(c);clrscr;if c='y' thenbegin clrscr;writeln('Невский проспект получил своё название:');writeln('1.По имени реки, на берегах которой расположен Санкт-Петербург.');writeln('2.По имени близко расположенного монастыря Александро-Невской лавры');writeln('3.В память о знаменитом полководце Александре Невском.');writeln('Введите номер правильного ответа и нажмите <Enter>');read(i);clrscr;if i=2 then writeln('SUCCES!')else writeln('Вы ошиблись. Правильный ответ: 2.');end;end.