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

Question

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

Answer 1

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