1) Дано число...

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

 

1)
var 
A:integer; 
Begin 
Readln(a); 
If a<>0 then 
If a<0 then writeln('a<0') else writeln('a>0') 
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.