Найти сумму цифр трёхзначного числа, заданного пользователем. Помогите решить задачу в Лазарусе.

{$apptype console}
var
n: integer;
begin
write('n? ');
readln(n);
if (n < 100) or (n > 999) then begin
writeln('ошибка ввода');
exit;
end;
writeln('сумма цифр: ', n div 100 + n mod 100 div 10 + n mod 10);
end.