РАЗРАБОТКА РЕКУРСИВНЫХ АЛГОРИТМОВ И ПРОГРАММ

[юра 3]

Исправьте задачу плиз.Нужно написать с помощью рекурсии.
Условие.
Y n+1=Yn+N

Пояснение(Y (n+1)-внизу индексы=Y (n-индекс)+N)

var i,n,y:integer;
begin
writeln('vvedite n');
readln(n);
i:=0;y:=1;
while i<n do
begin
inc(i);
y:=y+i;
end;
writeln(y);
readln;
end.

[pomoshnic]

Вот:

var i,n,y:integer;
procedure r;
begin
inc(i);
y:=y+i;
if i<n then r;
end;
begin
writeln('vvedite n');
readln(n);
i:=0;y:=1;
r;
writeln(y);
readln
end.