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

Question

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

---

---

Answer 1

Var
  n:integer;

begin
  Write('В каком году основан Минск? (1067, 993, 1147): ');
  Readln(n);
  if n=1067 then Writeln('Верно')
  else Writeln('Вы ошиблись')
end.

Тестовое решение:
В каком году основан Минск? (1067, 993, 1147): 1067
Верно
****************************************
var
  n:integer;

begin
  Write('Введите целое положительное число: ');
  Readln(n);
  if (n mod 2 =1) then Writeln('Да') else Writeln('Нет')
end.

Тестовое решение:
Введите целое положительное число: 8
Нет

Answer 2

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.