[ferget]

не получается вот решение »

что именно не получается? вроде решение верное

так попробуйте

Код:

x:=a div 100;
y:=a mod 100 div 10;
z:=a mod 10;
r:=x+y+z;