program cifersuc;
{158  -- ciferny sucet je 1 + 5 + 8 = 14}
{55687  5568 7, 556 87, 55 }
{556 zv 87 (del. 100}

{23456}
{del. 10 = 2345, zv. 6}
{2345 del. 10 = 234 zv. 5
 234 / 10 = 23 zv. 4
 23 / 10 = 2 zv 3
 2 / 10 = 0 zv 2

 234 mod 10 = 4
}

  var n:longint;
      pom:longint;
      zvysok:longint;
      sucet:integer;
begin
  write('Zadaj cislo:');
  readln(n);

  sucet:=0;
  zvysok:=n;
  repeat
    pom:=zvysok div 10;
    zvysok:=zvysok mod 10; {tu mame zvysok po deleni, cize poslednu cifru}
    sucet:=sucet + zvysok;
    zvysok:=pom;
  until pom=0;

  writeln('Ciferny sucet je ', sucet);
end.