Дано пятизначное число, нужно вычислить сумму цыфр. Записать в порядке возрастания числа

Это часть про разложение на цифрыuses crt;
var a,b,c,d,e,x:integer;
begin
write(vvedi  chislo);
readln (x);
a:=x  div 10000;
b:=x   div 1000 mod 10;
c:=x    mod 1000 div 100;
d:=x   mod 100 div 10;
e:=x    mod 10;
writeln ( ,a, ,b, ,c,  ,d, ,e);end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.