Впаскале нужно сделать: ввести число,если оно положительное вывести "истинно", если отрицание "ложь".

Var:n:real{если число целое то вместо реал напиши integer}
begin
writeln('Введите число');
read(n);
if(n=>0) then
 writeln('true')
else
writeln('false'); 
end.