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

[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 22:01

[klem4]

Нужно еще ввести N, а в строке

writeln( ' Арифметическая прогрессия' , Аrif (a1, d, n) : 4 : 2);

Выделенная буква - кириллическая а не латинская

[volvo]

writeln( ' Арифметическая прогрессия' , Аrif (a1, d, n) : 4 : 2);

Выделенная буква - русская... Поменяй на латинскую ...

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

Сообщение отредактировано: volvo - 9.05.2007 21:50

[klem4]

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

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

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

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

[compiler]

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

так.. readln(n) вроде я добавлял.. щас нету, прошу прощение , наверно убрал случайно, добавляю

добавлено позже
все разобрался, всем спасибо...



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