Проанализировать динамику поступления товаров медицинского назначения от поставщиков. Это работа в экселе

1)program wk;
var mas:array [1..5]of integer;i:integer;
begin 
 for i:=1 to 5 do 
  mas[i]:=Random(121)-64; 
for i:=1 to 5 do 
 Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   p:=p*mas[i]; 
  end;
 Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   if (i mod 2 <>0)then p:=p*mas[i]; 
  end;
 Writeln(p)
end.

3 раза.
После первого прохождения цикла 
s=2; k=2;
после 2  прохождения цикла 
s=5; k=3;
после 3  прохождения цикла 
s=9; k=4; 
при следующей проверки условие s<=7 не выполниться так как s>7

1 миллион - обрабатывает 1 сервер за 3 секунды
следовательно  2 миллиона обрабатывает сервер за 6 секунд
6 умножаем на 2 миллиона равно 12 миллионов.
думаю так

Всего можно составить шесть двузначных чисел: 12,13,21,23,31,32. их сумма равна 152