Объяснение:

program example;

var x,a,b,c,d,e,s:integer;

begin

writeln ('Нахождение суммы цифр пятизначного числа');

writeln ('Введите исходное число>>');

readln (x);

a:=x div 10000;

b:=x mod 10000 div 1000;

c:=x mod 1000 div 100;

d:=x mod 100 div 10;

e:=x mod 10;

s:=a+b+c+d+e;

writeln('Сумма цифр равна>>',s);

end.