Фибонначи

[An2ton1]

Написать рекурсивную подпрограмму вычисления чисел Фибоначчи. Помогите пожалуйста с begin и end (Pascal Abc.net)
Xn=Xn-1+Xn-2 X0=1 X1=1

[NetSpace]

вводим целочисленное значение N
X(0)=1
X(1)=1
цикл перебрать все значение i от 2 до N
начало тела цикла
 X(i) = X(i-2)+X(i-1)
выводим на экрна X(i)
конец тела цикла

[digitalis]

У человека ведь хотелка - рекурсивная! Не знаю, как на, простите за выражение, абеце, а в нормальной среде это выглядит так (кстати, begin end'ов тут - хоть завались) :

function Fib(arg:integer) : integer ;
Begin
  if Arg<2 then Fib := arg
  else Fib := Fib(arg-1) + Fib(arg-2)
end ;

begin
  for i := 0 to 10 do
    begin
      j := Fib(i) ;
      Memo1.Lines.Add(Format('%3d %5d',[i,j]))
    end;
end;

Сама функция и пример её использования.
0 0
1 1
2 1
3 2
4 3
5 5
6 8
7 13
8 21
9 34
10 55

Помогите пожалуйста с begin и end

Это мне напомнило из "Берегись автомобиля" :

- Да, и не забудьте сказать: "Быть - или не быть?"

[сфинкс]

экспорт ориентированная импорт замещающая
программа про числа Фибоначчи Fibonacci

https://www.programmersforum.ru/show....php?p=1807460

язык не по теме зато выводит в столбик красиво
и ещё в той теме есть программы