Уменя будет итоговая по информатике можете ! нужно написать программы для pascalabc.

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var ЕстьКусков,НадоКусков:integer;
  Readln(ЕстьКусков,НадоКусков);
  var Длины:=ReadArrInteger(ЕстьКусков);
  var ОбщаяДлина:=Длины.Sum;
  if НадоКусков>ОбщаяДлина then Writeln(0)
  else begin
    var ДлинаКуска:=ОбщаяДлина div НадоКусков;
    repeat
      if Длины.Select(Кусок->Кусок div ДлинаКуска).Sum >=НадоКусков then break
      else ДлинаКуска-=1;
    until false;
    writeln(ДлинаКуска)
    end
end.

Пример
4 11
802 743 457 539
200

Предлагается программно-технологический комплекс для обеспечения моделирования, использующий в качестве инструмента построения моделей и визуализации результатов L-системы (системы Линденмайера). Основное предназначение – построение моделей процессов и структур, имеющих фрактальную природу. Комплекс поддерживает работу с различными типами L-систем: детерминированными контекстно-независимыми, стохастическими, параметрическими, контекстно-зависимыми. Разработанная система использовалась для моделирования и анализа социально-экономических процессов.