дано число если оно меньше или равно 0 вывести слово неполож. впротивном неполож.

Ответ:

program n1;

var q:real;

begin

println('введите число');

readln(q);

if q>0 then

 write('больше нуля ')

 else

   write('меньше или равно нулю');

end.

Объяснение: