function sum (a : integer) : integer; var s : integer; begin While a > 0 do begin s := s + a mod 10; a := a div 10; end; Result := s; end;
var a,b : integer; c,d : integer; begin readln (a,b); c := a div b; d := a - (b * c); writeln (sum(d));<span> end.
function p (a : integer) : integer; var p : integer; begin p := 1; While a > 0 do begin p := p * a mod 10; a := a div 10; end; Result := p; end; var a : integer; begin readln (a); writeln (p(a));<span> end.</span></span>