Задание
Перед вами фрагменты программы. Составьте из данных фрагментов программу с рекурсией для вычисления суммы первых пяти натуральных чисел.
- var o,n:integer;
- function summa\(n:integer\):integer;
- begin
- if n=1 then summa:=1
- else summa:=n+summa\(n\-1\);
- end;
- begin
o:=summa\(5\); - writeln\(o\);
- end.