=))паскаль

[Nasten'ka]

правильно решила..проверьти плз)))

Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три варианта ответа, а пользователь должен выбрать правильный ответ и ввести его номер. В случае неверного ответа пользователя выдать сообщение “Правильный ответ 2!”.
Вопрос: Невский проспект получил своё название? 1.По имени реки, на берегах которой расположен Санкт-Петербург. 2.По имени близко расположенного монастыря Александро-Невской лавры. 3.В память о знаменитом полководце Александре Невском.

program NP;
VAR
mark: integer;
begin
writeln;
writeln ('Невский проспект получил своё название?');
writeln ('1.По имени реки, на берегах которой расположен Санкт-Петербург.');
writeln ('2.По имени близко расположенного монастыря Александро-Невской лавры.');
writeln ('3.В память о знаменитом полководце Александре Невском.');
readln(mark);
writeln;
if mark=2 Then writeln ('правильно!')
Else writeln ('Правильный ответ 2!');
end.

[Lemo]

Так вы же ее сами написали...