Мне кажется что мы не можем сказать сколько яблок было у каждого мальчика. К примеру: если у Тимура было три, а у Руслана 2, то тогда бы Руслан дал Тимуру и у него было бы больше в 2 раза, чем у Руслана. А если бы Тимур дал Руслану еще одно яблоко, то тогда бы У Руслана стало больше чем у Тимура.
Поэтому такого быть не может. Но это моё мнение ✌️
Надо рассмотреть координату точки на предмет больше или меньше нуля x,y
Если x>0 и y > 0 то 1 четверть
Если x<0 и y > 0 то 2 четверть
Если x<0 и y <0 то 3 четверть
Если x>0 и y < 0 то 4 четверть
Var i:Integer;s:real;
A:array[1..130]of integer;
Begin
S:=0;
For i:=1 to 130 do begin
A[i]:=random(100);
S:=s+A[i];
End;
S:=s/130;
Write(s);
End.