{* Задача 6 *}

Unit ZADAH6;
Interface
Implementation
Begin
 writeln('

Для целых чисел N>2, A и B, наполнить и вывести массив размера N первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих

');
End.

Program zadah6;

Uses zadah6.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);
  write('Введите первый элемент: ');
  readln(f1);
  write('Введите второй элемент: ');
  readln(f2);
  ar[1] := f1;
  ar[2] := f2;
  k := f1 + f2;
  For i := 3 To n Do {* Увеличиваем i от 3 до n с шагом 1 *}
  Begin
    ar[i] := k;
    k := k * 2;
  End;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    write(ar[i] : 3 : 2, '|');
End.