Program zadanie;
Var a,b,n:integer;
Begin
Writeln('Введите стоимость пирожка в рублях и копейках');
Readln(a,b);
Writeln('Сколько нужно купить пирожков');
Readln(n);
Writeln('Стоимость покупки в рублях=',n*a+((b*n) div 100));
Writeln('Стоимость покупки в копейках=',(n*b) mod 100);
End.