Помогите, пожалуйста! Необходимо написать программу на Pascal: дано пятизначное число, отыскать

Ты как условие пишешь? "Всех четерех". У тебя пятизначное число. Так четырех либо пяти цифр отыскать?

Весь код писать не буду. Напишу ток ф-ю нахождения.

while ( a != 0) begin // Ввел ты свое число, допустим - а.
c = a div 10; // Разделяем его на 10, т.е берем его заключительную цифру
d = d+c; // в эту переменную накапливаем сумму цифр
end // конец цикла