Помогите решить, пожалуйста, поскаль

uses crt; var i, j, k, s, days, profit: integer;
begin textbackground(white); clrscr();
textcolor(magenta); randomize(); j := 0;
days := 1000; for i := 1 to days do begin
k := random(31); profit := 7000; if k > 15
then profit := profit - 1000 * (k - 15);
if profit < 0 then j := j + 1; s := profit;
writeln(i: 5, ') ',k: 3, profit: 7, s: 7) end;
writeln(days - j, ' ', j, ' ', s) end.
В общем "хороших" дней оказывается в разы больше чем "плохих", но при этом завод по общей сумме доходов всё равно оказывается малорентабельным, а то и убыточным - то есть по превышению выручки от продажи продукции над штрафами постоянно балансирует на грани убыточности...

Интересное определение рентабельности :)) Как и разрешение заводу ежедневно выбрасывать в реку 15 кг отравляющих веществ ;)
Кстати, случайная величина как распределена - равномерно или иначе? Во всяком случае, рекомендую заводу, когда надо выкинуть больше 15 кг, приберечь их часть на день. когда их будет меньше 15 кг :)

заведи массивы (1..365) отрав, штраф, и в цикле от 1 до 365 все считай, после опять в цикле считаешь дни в которые прибыль превзойдет штрафы больше, чем количество дней с преобладающими штрафными выплатами

"Завод сбрасывает в реку ежедневно случайным образом (из-за неисправности очистных сооружений) от 0 до 30 кг вредных "
Поскольку количество клучайно, но без указания функции распределения,
задание бессмысленно.

ты букву П на М замени в слове поскаль