Составьте программу, которая задает вопрос: В какой году был основан город Минск (например, в 1067 г, в 993 г. либо в 1147 г.) ? В случае верного ответа программа должна сообщить Верно, в противном случае - Вы ошиблись.

Var a:integer;

begin

writeln ('В каком году был основан город минск?') ;

writeln ('в 1067 г, в 993 г, в 1147 г') ;

readln (a) ;

if (a=1067) then writeln ('Правильно')

else writeln ('Не верно') ;

end.

Смог ли я вам чем-нибудь помочь?