блок схема

[tina22222]

Уважаемые форумчане , у меня жизненноважный вопрос , может это для кого-то не трудно . Снимок.PNG Я понимаю , что рекурсия -это возвращение назад , но правильно их расставить не могу. Помогите , кто может. Очень буду благодарна.
вот сам код программы:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function summ(ch:integer):integer ;
  begin
    if ch<10 then summ:=ch
    else summ:= summ(ch div 10) + (ch mod 10)
  end;

 var ch,sum:integer;
begin
   writeln('VVedite naturalnoe chislo ');
   readln(ch);
   sum:=summ(ch);
   writeln ('Summa cifr chisla  ',ch,' ravna ',sum);
   readln;
end.

[Vanta11a]

ПРИМЕРНО так можно сделать:

[tina22222]

спасибо) вы мне очень помогли)