soucet = 0 dokud cislo > 0 dělej soucet = soucet + cislo mod 10 cislo = cislo / 10 (celočíselně) opakuj