Giammy //PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin
  Println(ReadInteger('x->')<0?'Отрицательное':'Положительное');
end.

2)
begin
  Println(ReadInteger('x->').IsEven?'Четное':'Нечетное');
end.

3)
begin
Println(ReadInteger*ReadInteger=ReadInteger?'Правильно':'Неправильно');
end.