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

Var K, S: integer;
begin
    write('Введите число: '); readln(K);
    while K > 0 do
    begin
        S := S + K mod 10;
        K := K div 10
    end;
    writeln('Сумма цифр = ', S);
end.