Вычислить сумму цифр пятизначного числа - Pascal ABC (15777)

Формулировка задачи:

Входные данные: Во входном потоке задано единственное целое положительное пятизначное число Выходные данные: В выходной поток вывести единственное целое число. Пример входного файла (input.txt): 49626 Пример выходного файла (output.txt): 27 Вот что у меня:

var a : integer;
s, a1, a2, a3, a4, a5, a6, a7 : integer;
begin
read (a);
a1:=a div 10000;
a2:= a div 1000;
a3:= a2 div 10;
a4:= a2 mod 10;
a5:= a mod 100;
a6:= a5 div 10;
a7:= a5 mod 10;
s:=a1+a3+a4+a6+a7;
write (s);
end.

Как исправить?

Решение задачи: «Вычислить сумму цифр пятизначного числа»

Листинг программы

var n,s:integer;
begin
writeln('Введите 5-значное число n=');
readln(n);
s:=n div 10000+n div 1000 mod 10+n div 100 mod 10+n div 10 mod 10+n mod 10;
wtite('Сумма цифр=',s);
end.

Объяснение кода листинга программы

Создаются две переменные n и s типа integer.
Выводится сообщение 'Введите 5-значное число n=', чтобы пользователь мог ввести пятизначное число.
С помощью функции readln(n) происходит чтение значения пятизначного числа n из ввода пользователя.
Вычисляется сумма цифр числа n по формуле: s := n / 10000 + n / 1000 mod 10 + n / 100 mod 10 + n / 10 mod 10 + n mod 10.
Выводится сообщение 'Сумма цифр=', чтобы пользователь мог увидеть результат.
Конец программы.