program n1;
var q:real;
begin
println('введите число');
readln(q);
if q>0 then
write('больше нуля ')
else
write('меньше или равно нулю');
end.
Объяснение:
