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

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