Помогите из срочно Дз по информатики

Question

Помогите из срочно Дз по информатики

---

Answer 1

var

 n: integer; // Объявление переменной типа integer (целочисленная)

begin

 writeln('Введите число'); readln(n); // Ввод числа

 if (n mod 2) = 0 then write('Число четное.') // Проверка на четность

 else write('Число нечетное.');

end.