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

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