Program proga;
uses crt;
var
x:integer;
begin
clrscr;
writeln('В каком году был основан город Минск?');
readln(x);
if x=1067 then
writeln('верно')
else
writeln('Вы ошиблись');
end.
Program proga;
uses crt;
var
x:integer;
begin
clrscr;
writeln('В каком году был основан город Минск?');
readln(x);
if x=1067 then
writeln('верно')
else
writeln('Вы ошиблись');
end.