Question

Помогите,пожалуйстаа!! В программе Geany с помощью Pascal
Задача 1.Определить четность/нечетность числа, введённого пользователем (использовать операцию mod, которая находит остаток от деления). 
Задача 2.Определить, попадает ли введенное число x в интервал [a, b], где числа a и b тоже задаются пользователем. 

Answer 1

Var     a,b,c:longint;
Begin 
read(a,b,c); 
if c mod 2=1 then 
writeln('Нечетное') else 
writeln('Четное'); 
if ((c>=a) and (c<=b)) then 
writeln('YES') else 
writeln('NO');
End.