Var
a, b, n, s1, s2 :integer;
begin
write('введите стоимость пирожка в рублях ');
readln(a);
write('введите стоимость пирожка в копейках ');
readln(b);
write('введите количество пирожков ');
readln(n);
s1:=a*n;
s2:=b*n;
writeln('стоимость покупки в рублях ', s1);
writeln('стоимость покупки в копейках ', s2);
end.