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

Question

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

Answer 1

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