1)даны 3 числа абс определите кол-во отрицательных.
2)проверить принадлежность числа х интервалам абсд  включительно

1. var a.b.c,k:integer;beginreadln(a,b,c);if a<0 then k:=k+1;if b<0 then k:=k+1;if c<0 then k:=k+1;writeln('koli4estvo=',k);end.2.var a,b,c,d,i,x:integer;beginreadln(x);for i:=a to b doif i=x then writeln('Prinadlejit ot ',a,'do',b,'!');for i:=c to d doif i=x then writeln('Prinadlejit ot ',c,'do',d,'!');end.