Каталог папка директория в данном случае наверное первое
Алик - Симонов, Володя - Лунин, Миша - Петров, Юра - Балашов
ПРОСТИТЕ ЗА КАЧЕСТВО
While (условие) do
begin
(пишем что выполнить)
end;
Надо использователь цикл for в котором в формуле прописать s:=i+1/3
Всё что нам нужно это просто поделить количество яблок на количество школьников т.е. k/n - тогда мы получим результат, решение прикрепил скриншотом.