Введите четырехзначное число и подсчитайте сумму его цифр(пояснение: примените операции div и mod по несколько раз)

var

  a: 1000..9999;   //четырехзначное число

  a1, a2, a3, a4: 1..9;   {цифры четырехзначного числа (цифры могут быть только от 1 до 9 в десятичной системе счисления)}

begin

  writeln('введите четырехзначное число');

  readln(a);   //вводим четырехзначное число

  a1: = a div 1000;   {находим первую цифру, для этого делим это число без остатка на 1000 (например пусть число будет 5479, тогда получится 5479 / 1000 = 5,479; отбрасываем остаток и получается 5)}

  a2: = (a mod 1000) div 100;   {находим вторую цифру, для этого сначала берем остаток от деления этого числа на 1000, а потом делим результат на 100 без остатка (5479 / 1000 = 5,479; оставляем остаток, получается 479; 479 / 100 = 4,79 ; отбрасываем остаток и получается 4)}

  a3: = (a mod 100) div 10;   {находим 3 цифру, для этого сначала берем остаток от деления этого числа на 100, а потом делим результат на 10 без остатка (5479 / 100 = 54,79; берем остаток и получается 79; 79 / 10 = 7,9 ; отбрасываем остаток и получается 7)}

  a4: = a mod 10;   {для нахождения 4 цифры берем остаток от деления этого числа на 10 (5479 / 10 = 547,9 ; берем остаток и получается 9)}

  writeln('сумма цифр числа ', a, ' равна:   ', a1 + a2 + a3 + a4);   {выводим сумму цифр}

end.

если все правильно, отметь решение как лучшее)

var a,i,sum: integer;

begin

readln(a);

for i: =1 to 4 do begin

sum: =sum+a mod 10;

a: =a div 10;

end;

writeln(sum);

end.