// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
Begin
if ReadInteger.IsEven then
Writeln('Четное') else Writeln(нечетное);
end.
2)
Begin
var x:= ReadReal('x =');
if x = 0 then Write('Функция не определена')
else Write('y = ', 1 / x);
end.
3)
Begin
var x:= ReadInteger;
if (x div 10 mod 10 = x div 100 mod 10) and (x div 1000 = x mod 10) then
Write('YES') else Write('NO');
end.