Дан список наименований товаров - овощей,хранящихся на базе в течение года. Известен начальный объем запаса товара. Найти убыль

[Smok4]

ошибся нужно на Turbo Pascal
Дан список наименований товаров - овощей,хранящихся на базе в течение года.Известен начальный объем запаса товара в натуральных единицах по каждому из наименований.Рассчитать - убыль по каждому наименованию за год,если естественная убыль осеннего периода составляет - 3%,зимнего периода 2%,весеннего периода - 4%,летнего периода -5%.Дополнительно определить максимальную убыль в натуральных единицах.
(заранее спасибо)

[Stilet]

Попытки и наработки были?
Можешь показать как список этот вводишь?

[xatabich]

А не получится что убыль за год считается как 3% + 2% + 4% + 5% = 14%
огурцы 500 шт 500 - ( 500 * 14% / 100% ) = 410 убыль 90 остатки 410