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

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- исправлено+ убрана не нужная переменная.

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



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

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

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

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

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

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

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