Пожалуйста посчитайте решить пожалуйста

1)

Var
   x,y:real;
Begin
Write('x = ');
ReadLn(x);
if x > -1 then y:=2*x-3
else y:=5*x*x;
WriteLn('y = ',y);
End.

Проверка:

x = 5
y = 7

x = -3.4
y = 57.8



2)

Var
   A:integer;
Begin
Write('Введите целове число: ');ReadLn(A);
if A mod 2 <> 0 then Write('Число - нечётное')
else Write('Число является ЧЁТНЫМ')
End.

1. А вторая задача?