{* Задача 5 *}

Unit ZADAH5;
Interface
Implementation
Begin
 writeln('

Для N>2, наполнить и вывести массив размера N, содержащий N первых элементов последовательности чисел Фибоначчи F_k: F₁=1, F₂=1, F_k=F_k-2+F_{k-1 ,} K=3, 4…

');
End.

Program zadah5;

Uses zadah5.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Type {* Типы переменных *}
  mas = Array[1..256] Of real;
Var {* В работе нам потребуются переменные: *}
  i  : integer;
  k  : integer;
  n  : integer;
  f1 : integer;
  f2 : integer;
  a  : integer;
  d  : integer;
  ar : mas;
  br : mas;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('Введите длину массива: ');
  readln(n);
  f1 := 1;
  f2 := 1;
  ar[1] := f1;
  ar[2] := f2;
  For i := 3 To n Do {* Цикл для i => [3 .. n] *}
  Begin
    k := f1 + f2;
    If k = 2 Then
      f2 := k
    Else Begin
      f1 := f2;
    f2 := k;
  End;
  ar[i] := k;
End;
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  write(ar[i] : 3 : 2, '|');
End...