Решить задачу на языке программирования Pascal. В текущем месяце бригада в каждый последующий день работы выпускала на три изделия больше, чем в предыдущий. В первый день было выпущено 42 изделия, что составило 67% дневной нормы. В месяце 26 рабочих дней. Сумеет ли бригада выполнить месячную норму?

Предыдущий
вопрос Следующий
вопрос

Program brigada;

var
day, n, norm, total, percent: integer;
flag: boolean;

begin
day := 1;
n := 42;
norm := 0;
total := 0;
flag := true;

while day <= 26 do
begin
total := total + n;
norm := norm + total;
percent := round((total / norm) * 100);

end;

if flag then
writeln('Бригада сможет выполнить месячную норму')
else
writeln('Бригада не сможет выполнить месячную норму');
end.