Дано четырехзначное число. Найти: сумму его цифр.Написать программу на Pascal'е

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

program SumOfDigits;

va
number, sum, digit: integer;

begi
sum := 0;

write('Enter a four-digit number: ')
readln(number);

if (number < 1000) or (number > 9999) the
begi
writeln('Please enter a valid four-digit number.')
en
els
begi
digit := number mod 10
sum := sum + digit
number := number div 10;

digit := number mod 10
sum := sum + digit
number := number div 10
digit := number mod 10
sum := sum + digit
number := number div 10
digit := number mod 10
sum := sum + digit
writeln('Sum of digits: ', sum);

end
end.