Напишите небольшую программу с использованием if else и then.

program up1;var q:integer;beginwriteln('введите число');read(q);if q>0 then write('число больше 0') else write('число меньше 0');end.