Лесопромышленное предприятие выпускает n видов продукции. известны количество выпускаемой ежемесячно (с января по июнь) продукции каждого вида и затратная стоимость выпуска единицы продукции, а также количество и общая цена реализованной каждого вида ежемесячно. определить: 1) общий объем продукции каждого вида в стоимостном и натуральном выражении за кварталы и год; 2) накапливающийся объем нереализованной продукции на начало следующего месяца; 3) три лучших (два худших) вида продукции за полугодие) лучшим признается товар принесший наибольшую прибыль).

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

var a: array[1..100] of integer;

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

    writeln(s);

end.

var age,exper,max_age,work_age: integer;

begin

  max_age: =42;

  work_age: =20;

  read(age,exper);

  if (age< = max_age) and (exper> =20) then writeln('da')

  else writeln ('net')

end.