1) Дано число А. Определить, положительное, отрицательное оно или равно 0.

2) Определить, принадлежит ли меньшее из чисел M и N промежутку [-20; 10).

1)

var

A:integer;

Begin

Readln (a) ;

If a0 then

If a<0 then writeln ('a0')

Else writeln ('a=0') ;

End.

2)

Var

A, M, n:integer;

Begin

readln (m) ;

readln (n) ;

If m=n then writeln ('error') else

If m>n then a:=n else a:=m;

If (-20<=a) and (a<10) then writeln ('Yes') else

Writeln ('No') ;

End.

Var m, n, x, y: integer;

begin

write ('Введите число M: ') ; read (m) ;

write ('Введите число N: ') ; read (n) ;

if (m
if (m>=-20) and (m<10) then writeln ('Число M входит в промежуток [-20; 10) ') else writeln ('Число M не входит в промежуток [-20; 10) ') ;

end

else begin

if (n>=-20) and (n<10) then writeln ('Число N входит в промежуток [-20; 10) ') else writeln ('Число N не входит в промежуток [-20; 10) ') ;

end;

end.