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.
