1). Ввоедите число 039;y, с клавиатуры обусловьте евляется ли число +

program n1;

var num:integer;

begin

writeln('Input number =gt; ');

readln(num);

if (numgt;0) and (numlt;gt;0) then  

writeln('+')

else

if (numlt;0) and (numlt;gt;0) then  

writeln('-');

end.

program n2;

var c,d,x:integer;

begin

write('Input x =gt; ');

readln(x);

write('Input C=gt; ');

readln(c);

write('Input D =gt; ');

readln(d);

if ((clt;x) and (xlt;d)) or ((cgt;x) and (xgt;d)) then

writeln('yes')

else

writeln('no');

end.