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.
Ннкнлки
это всё дурацкий лимит
<span>Считать это хорошо поставленной задачей нельзя ни в коем случае. Это просто пустые слова, если "не знаю куда" это не название какого-то места, "не знаю что" не название предмета.</span>
Угол наклона должен быть 15 градусов