5. рассмотрите фрагмент электронной таблицы с результатами приёма старшеклассников в баскетбольную секцию: сформулируйте условие приёма. запишите соответствующую формулу.

program raf105;

var iq,n,x,i,choco,choco_counter,kid_counter: integer;

begin

write('введите количество детей в детском саду: ');

readln(n);

write('введите желаемый iq: ');

readln(x);

writeln('вводите iq ',n,' детей по очереди.');

for i: =1 to n do

begin

  readln(iq);

  if iq > = x

    then begin

      if choco div 228 < 1

        then begin

          choco_counter+= 1;

          choco+= 1337;

        end;

      choco-= 228;

      kid_counter+= 1;

    end;

end;

writeln('награду получат ',kid_counter,' дет.');

writeln('шоколада потребуется приобрести: ',choco_counter,' плит.');

end.

var      a: array [1..100] of integer;       i, p, n: integer; begin      p : = 1;       read(n);             for i : = 1 to n do       begin              read(a[i]);               if a[i] mod 2 = 0 then                       p : = p * a[i];       end;             writeln(p); end.