Целой переменной 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.