вводится число от 1 до 10000. Найти сумму цифр числа: если сумма цифр равна 10, то вывести на экран сообщение "Число удовлетворяет условию задачи", иначе "Число не удовлетворяет условию задачи"

Var n,s : Integer;Begin  Readln(n);  s:=0;  While n>0 do  Begin    s:=s+(n mod 10);    n:=n div 10;  end;  If s=10 then Writeln('Число удовлетворяет условию задачи')  else Writeln('Число не удовлетворяет условию задачи');end.