Var
a,n,b,rez_r,rez_c:integer;
begin
writeln(Введите стоимость пирожка (рубли));
readln(a);
writeln(Введите стоимость пирожка (копейки));
readln(b);
writeln(Введите число пирожков);
readln(n)
;rez_r:=a*n+(b*n)div(100);
rez_c:=b*n-((b*n)div(100))*100;
writeln(Стоймость(рубли):);
writeln(rez_r);
writeln(Стоймость(копейки):);
writeln(rez_c);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.