Листинг программы:
var a,b,c:integer;
begin
writeln('Задайте a,b,c:');
readln(a,b,c);
c:=c-(a*b);
writeln(c,' ', 'рублей осталось у мальчика');
end.
