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.