program ukol12;
uses crt;
var
  cislo,cif:integer;
begin
  clrscr;
  cif:=0;

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

  if cislo<0 then cislo:=-cislo;

  while cislo<>0 do
   begin
    cif:=cif + cislo mod 10;
    cislo:=cislo div 10;
   end;

  writeln('Ciferny soucet cisla je: ', cif);
end.