25. в паскале. дано натуральное число n. вычислить разность между суммой и произведением цифр заданного числа.

Кажется , так.............

Var n,S,P:integer;
Begin
Write('n = ');ReadLn(n);
P:=1;
S:=0;
While n > 0 do
   Begin
   P:=P*(n mod 10);
   S:=S+n mod 10;
   n:=n div 10
   End;
WriteLn('S - P = ',S-P)
End.