Matematické Fórum

Ahoj, řeším úkol z programování, mám spočítat kořenový součet. Zatím jsem se propracoval s jistotou jen k cifernému součtu a nevím, jak tam mám zařadit přesně ten kořenový. Zatím mi to vypisuje správné hodnoty, ale CodExu se to nějak nelíbí...

program korsouc;
var x,y,z:integer;
begin
        read(x);
        while x>0 do
                begin
                z:= x mod 10;
                y:= y + z;
                x:= x div 10;
                end;
                begin
                z:= y mod 10;
                x:= x + z;
                y:= y div 10;
                x:= x + y;
                end;
                write(x);
end.


Děkuji za rady.