составить программу рисования окружностей

1.

const N = 10;

var a: array [1..N] of integer;

i, x: integer;

begin

  write('Введите x: ');

  readln(x);

  for i := 1 to N do

  begin

      a[i] := x + i - 1;

      write(a[i], ' ');

  end;

end.

2.

const N = 10;

var a: array [1..N] of integer;

i: integer;

begin

  a[1] := 1;

  a[2] := 1;

  for i := 3 to N do

  begin

      a[i] := a[i-1] + a[i-2];

  end;

  for i := 1 to N do

  begin

      write(a[i], ' ');

  end;

end.

3.

const N = 6;

var a: array [1..N] of integer;

i, x: integer;

begin

  a[N] := 1;

  for i := N-1 downto 1 do

  begin

      a[i] := 2 * a[i+1];

  end;

   

  for i := 1 to N do

  begin

      write(a[i], ' ');

  end;

end.

Объяснение:

{Автор:       Рудницкий В. Л.
Ограничения: Последовательность не может быть длинее NN.
Откуда:      Олимпиада, KZ, 2016.}
const  NN = 10000;
var  a  : array [1 .. NN] of integer;  i, j, d, N: integer;
begin
  write('Введите длину массива: '); readln(N);
  writeln('Введите массив чисел через пробел:');
  for i := 1 to N do    read( a[i] );
  { Удаляем повторы чисел }
  for i := 1 to N-1 do
    for j := i+1 to N do
      if a[i] = a[j] then a[j] := 0;
  { Создаем последовательность заполняя не нужные числа нулями }
  for i := 2 to N do    if ( a[i-1] > a[i] ) and ( a[i] <> 0 ) then a[i] := 0;
  { Суммируем не нулевые элементы }
  d := 0;  for i := 1 to N do    if a[i] <> 0 then d := d + 1;
  writeln('Максимальная длинна массива после удалений: ',d);
end.