Составьте программу на паскале Запас рыбы в пруду оценен в А тонн. Ежегодный прирост рыбы составляет 15%. Ежегодный план отлова B тонн. Наименьший запас рыбы С тонн (запас ниже С тонн уже не восстанавливается)

Program z3;   var y: array [1..15] of real;       g: array [1..20] of real;       i,d, a,b: integer; sum, sum_2: real; begin  writeln('введите оплату труда за день'); read(d);   a: = 0;   b: = 0;   for i : = 1 to 15 do  begin    y[i] : = random (30);     if (y[i] < 10) then a: = a + 1;     y[i] : = y[i] * d * 0.8;   end;         for i: =1 to 20 do    g[i] : = random (30);     if (g[i] < 10) then b: = b + 1;     g[i] : = g[i] * d * 0.8;       for i: =1 to 15 do  begin    writeln('сотрудник y_',i,' - ',y[i]);     sum: = sum + y[i];   end;   writeln;   writeln('сумма отдела y - ', sum);   writeln;   for i: =1 to 20 do  begin    writeln('сотрудник g_',i,' - ',g[i]);     sum_2: = sum_2 + g[i];   end;   writeln;   writeln('сумма отдела g - ', sum_2);   writeln;         writeln('в отделе y ', a, ' сотрудников работало меньше 10 дней');   writeln;   writeln('в отделе g ', b, ' сотрудников работало меньше 10 дней');     end.