Составить алгоритм и написать программу: Мальчик , продающий на улице газеты, зарабатывает F рублей на продаже каждой из первых 75 газет. На каждой из остальных газет он зарабатывает по Х копеек. Сколько заработает мальчик, если он продаст 133 газеты. (Ответ дать в рублях и копейках)

Var f,x,sr,sk:integer;
begin
write(f (руб) = ); readln(f);
write(x (коп) = ); readln(x);
sr:=75*f + (133-75)*x div 100;
sk:=(133-75)*x mod 100;
writeln(Заработок = ,sr, руб ,sk, коп);
end.

Пример:
f (руб) = 2
x (коп) = 40
Заработок = 173 руб 20 коп