Cycles/Nums sum[L]

procedure ReadN(var inp:longint);
begin
  read(inp);    //read any num
end;
procedure WriteN(inp:longint);
begin
  writeln(inp);   //write any num
end;
procedure FindSum(inpt:longint;var outp:longint);
begin
  repeat                                            //start loop
      outp:=outp+(inpt mod 10); //add to output val las num of inputted val
      inpt:=inpt div 10;        //cut the last num at inputed val
    until inpt=0;  //repeat loop until inputed val eq 0
end;
var inpt,outp:longint;
begin
  readn(inpt);                 //read inputing val
  outp:=0;    //starting val eq 0
  FindSum(inpt,outp);   //find nums sum
  Writen(outp);              //write result
end.