Факториал, подсчет ф. спомощью рекурсии Опции

[compiler]

Пытаюсь понять рекурсию нашел пример(на pascaler.ru), а он не работает
почему? Заранее благодарен.

Program Rekurs;
Var
  N : integer;
  F : Longint;
{  - - - - - - - - - - - - - - - - - - - -}
Function RecFact(N:integer) : LongInt;
Begin
  if N <= 1 
    then
      ResFact := 1
    else
      ResFact := N*ResFact(N-1);
End;
{  - - - - - - - - - - - - - - - - - - - -}
Begin
  writeln('Введите число N > ';
  read(N);
  F := RecFact(N);
  writeln('Для числа ',N,' значение факториала равно ',F);
End.

[klem4]

синтаксис ...

Program Rekurs;
Var
  N : integer;
  F : Longint;
{  - - - - - - - - - - - - - - - - - - - -}
Function RecFact(N:integer) : LongInt;
Begin
  if N <= 1
    then
      RecFact := 1
    else
      RecFact := N*RecFact(N-1);
End;
{  - - - - - - - - - - - - - - - - - - - -}
Begin
  writeln('??????? ????? N > ');
  read(N);
  F := RecFact(N);
  writeln('??? ????? ',N,' ???????? ?????????? ????? ',F);
End.

[volvo]

нашел пример(на pascaler.ru)

А твоя ненавязчивая реклама начинает доставать, знаешь? Ты если находишь где-то то там и спрашивай, почему не работает...

У нас, например, полно рабочих примеров...

[compiler]

Для volvo

А твоя ненавязчивая реклама начинает доставать, знаешь?

если б это была реклама то была б ссылка

Ты если находишь где-то то там и спрашивай, почему не работает...

там нет форума

У нас, например, полно рабочих примеров...

но изложение теории мне больше нравится там(не сочти за рекламу).

Для klem4

синтаксис ...

благодарю за помощ
P.S.класный аватар, где взял?

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