Проверка,соответственно,обратным путем
Begin;
writeln('Площадь поверхности Земли=<span>510100000 км.^2);
writeln('Объём Земли=</span><span>1083 млрд. куб. км.');
writeln('Плотность Земли=</span><span>5,51 г/см^3');
end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.First.Println
end.
За одну минуту №1 съест 1/60 объекта "пицца", объект №2 - 1/30, №3 - 1/5. Вместе за одну минуту они съедят 1/60+1/30+1/5 = 1/60+2/60+12/60 = 15/60 = 1/4 объекта "пицца". Целиком объект будет съеден за время в 4 раза больше, т.е. за 4 минуты.
Ответ: 4 минуты.