Найти сумму пятизначного числа:у меня вот что но это неправильно можете найти ошибку пожалуйста:program summa5znchisla;uses crt;var A,B,C,D,E,S,X:integer;beginclrscr;writeln(Введите 5-ое число);readln(x);A:= X div 10000;B:= X div 10000 mod 1000;C:= X div 1000 mod 100;D:= X div 100 mod 10;E:= X div 100 mod 10;S:= A+B+C+D+E;writeln(Сумма числа, X, равна,S);end.

Во общем всё намного проще! Создаёшь массив a[1..5](это твои A,B и т.д)
Потом с помощью цикла заполняешь его!
for i:=1 to 5 do
begin
a[i]:=x mod 10;
s:=s+a[i];
x:=x div 10;
end;
Потом выводишь S и задача решена!
Сам на паскале давно не пишу так, что прости за небольшие ошибки(не компилировал).