решить в паскале
1.Определить , является ли число, введенное с клавиатуры, четным.
2.Если хотя бы одно из двух введенных пользователям чисел четное, вывести слово "да",в противном случае вывести "нет"..
3.Определить, удовлетворяет ли условию |x| > 8 число х, введенное с клавиатуры.
***Функцию Abs(x) использовать не разрешается.

1)Program n1;var x: real;beginreadln(x);if(x mod 2=0) then do writeln('четное);elsewriteln('нечетное');end.2)Program n2;var x, y: real;beginif(x mod 2=0) or (y mod 2=0) then do writeln('да');elsewriteln('нет');end.3)Program n3;var x: real;beginreadln(x);if(x<8) and (x>-8) then do writeln('нет');elsewriteln('да');end.