//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
Println(ReadInteger('x->')<0?'Отрицательное':'Положительное');<br>end.
2)
begin
Println(ReadInteger('x->').IsEven?'Четное':'Нечетное');
end.
3)
begin
Println(ReadInteger*ReadInteger=ReadInteger?'Правильно':'Неправильно');
end.