Помогите решить эти задачки(Паскаль)Заблаговременно спасибо огромное

// 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.