Мальчик, продающий на улице газеты, зарабатывает А руб. на продаже каждой из первых 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.