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