Написать программу на паскале по этому описанию даны две последовательности: с1, с2, с7; р1, р2, р7. если каждый элемент первой последоваткльности меньше суммы элементов второй, найти при каких згачениях i, j максимально значениевыражения сi/(pj+ci^2) , кто может ! буду ! желательно как можно быстрее

// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var c := ArrRandom(7, -5, 5);

 c.Println;

 var p := ArrRandom(7, -50, 50);

 p.Println;

 var s2 := p.Sum;

 if c.All(t -> t < s2) then

 begin

   var k := c.Cartesian(p, (i, j)-> (i, j, i / (j + i * i))).MaxBy(t -> t[2]);

   var i := c.IndexOf(k[0]) + 1;

   var j := p.IndexOf(k[1]) + 1;

   Println($'Максимум {k[2]:g6} при i={i}, j={j}')

 end

end.

Если нужен ввод с клавиатуры, то вместо var C := ArrRandom... напишите var C := ReadArrInteger(n) или ReadArrReal(n)