Question

номер 1 и 2 пожалуйста

Answer 1

1)
var a :integer;
begin
   writeln('В каком году основан Минск?');
   read (a);
   if a=1067 then writeln('Верно') else writeln('Вы ошиблись');
end.
2)
var a :integer;
begin
   writeln('Введите число');
   read (a);
   if a mod 2 = 0 then writeln('Нет') else writeln('Да');
end.