Даже если бы ты дал я бы тебе друг.
Программа будет такая:
var x:integer;
Begin
Readln(x);
If (x > 0) then write('Положительное') else write('Отрицательное');
End.
