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

Это часть про разложение на цифрыuses crt; var a,b,c,d,e,x: integer; beginwrite ('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.