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