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