Просчитать урожай яблок и прибыль с их продажи - Pascal ABC

Формулировка задачи:

Помогите пожалуйста решить, завтра сдавать... А я не понимаю, что от меня требуется Фермеру необходимо просчитать урожай яблок и прибыль с их продажи. Ферма насчитывает n яблонь, каждая из может принести от 20 до 50 кг. Содержание каждой яблони обходится в k рублей. Наценка на 1 кг составляет g % от себестоимости.

Решение задачи: «Просчитать урожай яблок и прибыль с их продажи»

Листинг программы

u:=0;//урожай
p:=0;//прибыль
for i:=1 to n do
 begin
  kol:=20+random(31);//урожай с 1 яблони от 20 до 50 кг
  s:=k/kol;//себестоимость 1 кг
  c:=s*(1+g/100);//цена 1 кг яблок
  u:=u+kol;//общий урожай
  p:=p+kol*c-k;//прибыль=стоимость яблок-содержание
 end;

Объяснение кода листинга программы

Объявлены две переменные: u (урожай) и p (прибыль), и инициализированы нулем.
Задается диапазон переменной i от 1 до n с помощью цикла for.
В каждой итерации цикла:
- Переменная kol инициализируется значением 20 + случайное число от 0 до 30 (включительно) с помощью функции random.
- Переменная s вычисляется как себестоимость 1 кг яблок, деленное на kol.
- Переменная c вычисляется как цена 1 кг яблок, умноженное на (1 + g/100), где g - переменная, представляющая процент наценки.
- Значение переменной kol добавляется к переменной u, представляющей общий урожай.
- Значение переменной kol умножается на c, представляющее стоимость 1 кг яблок, и вычитается из k (себестоимость), чтобы получить прибыль. Значение добавляется к переменной p.
Код завершается после завершения цикла for.