Zadání:
Sestavte program, který vypočte ciferný součet zadaného přirozeného čísla.

Řešení:
Zadání vyřešíme použitím cyklu REPEAT. Nejdříve zjistíme zbytek po celočíselném podílu zadaného čísla hodnotou 10
a o tento zbytek zvýšíme ciferný součet (např. pro zadané číslo 123 se ciferný součet zvýší o 3). Poté vydělíme
celočíselným dělením zadané číslo hodnotou 10 (tím se z čísla 123 stane 12). Celý proces opakujeme do té doby,
dokud se zadané číslo nevynuluje.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var cislo,soucet:longint;

begin

   write('Zadejte cislo: ');
   readln(cislo);

   soucet:=0;

   repeat
      soucet:=soucet+cislo mod 10;
      cislo:=cislo div 10;
   until cislo=0;

   writeln(soucet);

   readln;

end.