Паскаль рекурсии СРОЧНО

[Solana]

1. вычеслить сумму n первых членов арифметической прогрессии
2. написать рекурсию вычесления N(ого) числа фибоначи
3. найти сумму цифр в числе
все задачи надо черес рекурсии с процедурами или с функциями
я понимаю что могла бы и сама решить эти задачи но я не могу понять рекурсии
надеюсь с помощью вас пойму
зарание спасибо

[Tayfun]

Предлогаю, вам, выложить решение этих задач без рекурсии, а мы в свою очередь поможим, вам, их переделать под интересующий вас вариант решения!

[Solana]

1 s:=(a1+An/2)*n

2
readln(n);
a1:=1; a2:=2
for 3 to n do begin
ch:=a1+a2;
a1:=a2;
a2:=ch;
end;

3
s:=0;
while n<>0 do begin
a:=n mod 10;
n:=n div 10;
s:=s+a;
end;

[bill]

#1 и #3- рекурсия
№3

program sd;
uses crt;
var a:integer;s:string;
function sdf(a:string;n:integer):integer;
begin if n>=1 then result:=result+strtoint(a[n])+sdf(a,n-1);
end;
begin
read(s);
write(sdf(s,length(s))) ;
end.

№1:

program sd;
uses crt;
var n,a,t:integer;
function sum(a,n,t:integer):integer;
begin
if t>1 then result:=result+sum(a,n,t-1)+n else if (t=1)then result:=a;
end;
begin
read(a);
read(n);
read(t);
write(sum(a,n,t));
end.