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

1.
var a.b.c,k:integer;
begin
readln(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;
begin
readln(x);
for i:=a to b do
if i=x then writeln('Prinadlejit ot ',a,'do',b,'!');
for i:=c to d do
if i=x then writeln('Prinadlejit ot ',c,'do',d,'!');
end.