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

Var

A, B, X : Integer;

begin

Writeln ('Введите кол-во газет:'); / / Просим пользователя ввести кол-во газет

Readln (B); / / Считываем то, что он ввел

Writeln ('Введите цену первых 75 газет:');

Readln (A);

Writeln ('Введите цену остальных газет:');

Readln (X);

if B < = 75 then / / Условие: если газет 75 или меньше, то ...

Writeln ('Мальчик заработает ', B * A, 'рублей.')

else / / Иначе ...

Writeln ('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');

end.