Мальчик, продающий на улице газеты, зарабатывает А руб. На продаже каждой из…

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.