begin
  var n := 5;
  var C := ArrRandom(n, 1, 9); c.Println;
  var P := ArrRandom(n, 1, 9); p.Println;
  var found := false;
  
  foreach var x in C do
    if x > P.Sum then begin found := true; break end;
  
  if not found then
  begin
    var Max := real.MinValue;
    var k, l: integer;
    for var i := 0 to n - 1 do
      for var j := 0 to n - 1 do
      begin
        var Maxx := c[i] / (p[j] + c[i] ** 2);
        if Maxx > Max then begin Max := Maxx; k := i + 1; l := j + 1 end;
      end;
    Write('i = ',k,', j = ',l,', Max = ',Max)
  end;
end.