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

Var
    A, B, X : Integer;
begin
    Writeln(Введите кол-во газет:); // Просим пользователя ввести кол-во газет
    Readln(B); // Считываем то, что он ввел

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

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

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