var obs,n:integer; begin writeln('Введите трех значное число'); readln(n); obs:=n-((n div 100)+(n div 10 mod 10)+(n mod 10)); writeln('Разность между заданным числом и суммой его цифр = ',obs); end.