{* Задача 4 *}

Unit ZADAH4;
Interface
Implementation
Begin
 writeln('

Для N>1, первого члена A разности D геометрической прогессии наполнить и вывести массив размера N, содержащий N первых членов прогрессии: A, AD, AD², AD³ …

');
End.

Program zadah4;

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