//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandomInteger(50, -50, 50);
writeln('[x < 0] = ', a.Where(x -> x < 0).Count);
writeln('[x > 0] = ', a.Where(x -> x > 0).Count);
writeln('[x = 0] = ', a.Where(x -> x = 0).Count);
end.
Program n_1;
var K :integer; A, B: real;
begin
read (A, B);
K:=0;
if a>=0 then K:=K+1;
if b>=0 then K:=K+1;
writeln(K);
end.
А)111010
б)111000
в)11011100011
Г)101011
д)10000111
е)10100101110
Var x, y: real;
begin readln(x, y);
if (y>=0) and (y<=sinx) and (x>=1-y) and (x<=Pi) then
writeln('принадлежит')
else writeln('не принадлежит');
readln;
end.