t_12_11_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,}
function Sum(N: Integer): Integer;
begin
  if N < 10 Then Sum := N
  else Sum := N mod 10 + Sum(N div 10)
end;