Составьте программу вычисления суммы цифр введенного с клавиатуры четырёхзначного натурального числа на паскаль

Предыдущий
вопрос Следующий
вопрос

program SumOfDigits;

va
num, sum, digit: integer;

begi
sum := 0;

writeln('Enter a four-digit natural number:')
readln(num);

// Calculate the sum of digit
digit := num mod 10
sum := sum + digit
num := num div 10;

digit := num mod 10
sum := sum + digit
num := num div 10;

digit := num mod 10
sum := sum + digit
num := num div 10;

digit := num mod 10
sum := sum + digit;

writeln('The sum of digits is: ', sum);

end.