Дано натуральное число n. Определить, на сколько последняя цифра заданного числа меньше суммы всех его цифр.

Var   n,S:integer;BeginS:=0;Write('n = ');ReadLn(n);repeatn:=n div 10;S:=S+n mod 10;until n = 0;WriteLn(S)End.