Мальчик, продающий на улице газеты, зарабатывает а рублей на продаже каждой из первых 75 газет. На каждой из остальных проданых газет он зарабатывает по х рублей. Напишите программу, которая выведет на экран заработок мальчика, если он продал 133 газеты. Pascal программа

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

program NewspaperSeller;
var
a, x, totalEarned: integer;
i: integer;
begin
a := 5; // заработок на первых 75 газетах
x := 3; // заработок на остальных газетах
totalEarned := 0;
for i := 1 to 75 do
begin
totalEarned := totalEarned + a;
end;
for i := 76 to 133 do
begin
totalEarned := totalEarned + x;
end;
writeln('Заработок мальчика: ', totalEarned, ' рублей');
end.