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.