Дано числа 1 1 1 2 3 4 6 9 13 ....
Найти N-ий член даного ряду (N<=50).
Пример входящих данных: 20
Приклад исходящих данных: 872

banan

const
  n = 20;
var
  arr: array[1 .. 4] of integer;
  i, j: integer;

begin
  for i := 1 to 3 do
    arr[i] := 1;

  for i := 4 to n do
    begin
      arr[4] := arr[1] + arr[3];
      for j := 1 to 3 do
        arr[j] := arr[j + 1];
    end;

  writeln( 'result = ', arr[4] );
end.

Дано строку чисел 1 1 1 2 3 4 6 9 13 ...
Найти N-ий член даного ряду (N<=50).
Програма получает число N (N<=50) и виводит N-ное число етого ряда

banan
А что, так сложно убрать одно описание и заменить на другое?

var
 arr: array[1 .. 4] of integer;
 i, j: integer;
 n: integer; { первая измененная строка }

begin
 write('n ='); readln(n); { вторая измененная строка }
 for i := 1 to 3 do
   arr[i] := 1;

 for i := 4 to n do
   begin
     arr[4] := arr[1] + arr[3];
     for j := 1 to 3 do
       arr[j] := arr[j + 1];
   end;

 writeln( 'result = ', arr[4] );
end.

Всего изменены 2 строчки...
Неужели даже это трудно сделать самому?
Учитесь думать, наконец!!!

спасибо тебе volvo !