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

Var a: integer;
begin 
readln (a);
if a>0 then
 writeln ('истина')
else 
writeln ('ложь');
end.