Программа будет иметь такой вид:
var x:integer;
begin
readln(x); // Распознает значение X
if x > 0 then // Условие выполнения программы
writeln('true') // Вывод значения на экран
else writeln('false'); // Вывод значения на экран
end.
Программа будет определять положительное или отрицательное значение переменной Х.