арифметическая прогрессия, помогите разобраться с кодом Опции

[compiler]

Добрый день!
есть пример(с рекурсией) который мне не ясен(да еще и не компилится) помогите пожалуйста...

Код

Нахождение n-го члена арифметической прогрессии
(an=a1+d*(n-1)-формула n-го члена арифметической прогрессии).

Program Progressiy;
Var
   a1, d: real;
   n: integer;
Function Arif (a1, d: real; n: integer): real;
Begin
   if n = 1 
     then
         Arif := a1
     else
         Arif := Arif(a1, d, n - 1) + d;
End;
Begin
	writeln('Задайте первый член прогрессии');
	readln(a1);
	writeln('Задайте разность арифметической прогрессии');
	readln(d);
	writeln('needed' );
	readln(n);
	writeln( ' Арифметическая прогрессия' , Arif (a1, d, n) : 4 : 2);
	readln;
	read;
End.

Заранее благодарен.

Arif- исправлено+ убрана не нужная переменная.

Сообщение отредактировано: compiler - 9.05.2007 18:01

[klem4]

P.S.
N вводить не нужно - оно уже описано...

А значение то не присвоено .. Я это имел в виду.

compiler Ты отредактировал сообщение чтоли ? Или я readln(n) не заметил ?!

Сообщение отредактировано: klem4 - 9.05.2007 17:54