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

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