Впрограмме geany с pascal 1.определить четность/нечетность числа, введённого пользователем (использовать операцию mod, которая находит остаток от деления). 2.определить, попадает ли введенное число x в интервал [a, b], где числа a и b тоже пользователем.

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.