Вирішити задачу і записати в Excel Розрахуйте потрібну суму на закупку розсади полуниці сорту
«королева Вікторія» за таких умов:
• потрібно купити 1000 кущів;

• саджанці продають пакетами, кожний пакет містить 10 саджан-
ців і коштує 169 грн;

• за першу сотню саджанців покупець платить повну вартість,

за кожну наступну сотню вартість зменшується на 1 % від попе-
редньої.

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! type   tq=queue< integer> ; procedure заполнениеочереди(q: tq; n: integer); begin   randomize;   loop n do begin       var k: =random(-20,40);       q.enqueue(k)       end; end; procedure сумманужныхэлементов(q: tq; var s: integer); begin   var ko,k: integer;   for var i: =1 to q.count do begin       k: =q.dequeue; q.enqueue(k);       if k.isodd then ko: =k;       if i=3 then s: =k       end;   s+=ko   end; procedure удалитьэлемент(q: tq; p: integer); begin   for var i: =1 to q.count do begin       var k: =q.dequeue;       if i< > p then q.enqueue(k)       end end; begin   var myq: =new tq;   var n: =readinteger('кол-во элементов (не менее 4): ');   заполнениеочереди(myq,n);   myq.println;   var s: integer;   сумманужныхэлементов(myq,s);   myq.enqueue(s); // искомая сумма помещена в очередь   myq.println;   удалитьэлемент(myq,4);   myq.println end. пример кол-во элементов (не менее 4): 13 -7 12 -18 4 23 -1 15 -11 9 12 5 3 2 -7 12 -18 4 23 -1 15 -11 9 12 5 3 2 -15 -7 12 -18 23 -1 15 -11 9 12 5 3 2 -15