Составьте рекурсивную подпрограмму, которая считает сумму первых n натуральных чисел - Turbo Pascal

Формулировка задачи:

Задание 1. Составьте рекурсивную подпрограмму, которая считает сумму первых n натуральных чисел. Задание 2. Составьте рекурсивную подпрограмму, которая выводит на экран картинку, показанную на рисунке, в зависимости от заданного числа n. Для данной картинки n = 5. (На форуме видел где-то решение, но не могу найти. Там * потом выше ** ещё выше *** и так до *****)

Решение задачи: «Составьте рекурсивную подпрограмму, которая считает сумму первых n натуральных чисел»

Листинг программы

function F(const N: Word): Word;
begin
if n=0 then F:=0
else F := F(n-1)+n
end;
var n:integer;
begin
write('n=');
readln(n);
write(F(n))
end.

Объяснение кода листинга программы

Данный код представляет собой рекурсивную функцию, которая считает сумму первых n натуральных чисел. В функции используется одна переменная n, которая представляет собой число, до которого мы хотим посчитать сумму. Функция начинается с проверки, равно ли значение n нулю. Если это так, то функция возвращает 0. В противном случае, функция вызывает саму себя, передавая в качестве аргумента n-1, и прибавляет к результату значение n. В основной части кода, сначала считывается значение n с помощью функции readln. Затем вызывается функция F, передавая в качестве аргумента значение n. Результат выводится на экран с помощью функции write. Таким образом, данный код позволяет посчитать сумму первых n натуральных чисел.