Пожаалуйста) В программе Geany Задача 1. Определить четность/нечетность числа, введённого пользователем (использовать операцию mod, которая находит остаток от деления).
1)uses crt; var a:integer; begin readln(a); if a mod 2=0 then writeln('четное') else writeln('нечетное'); end. 2)uses crt; var x,a,b,i,k:integer; begin writeln('введите интервал'); read(a,b); writeln('введите число'); readln(x); for i:=a to b do if i=x then inc(k); if k=0 then writeln('нет') else writeln('да'); end.