Ввести элементы одномерного массива

const
  n = 20;
 
var
  j, m, k, i: integer;
  a: array [1..n] of real;
  x, sumc, p, sum: real;
 
begin
  p := 1;
  k := 0;
  m := 0;
  sum := 0;
  sumc := 0;
  for i := 1 to n do
  begin
    a[i] := ln(i) / ln(10);
    writeln(a[i]:8:2);
    if (a[i] >= 0) and (a[i] <= 1) then
    begin
      inc(k);
      sum := sum + a[i];
    end;
    if not odd(i) then
      sumc := sumc + a[i];
    if a[i] > 1 then
    begin
      inc(m);
      p := p * a[i];
    end;    
  end;
  writeln('Количество элементов в диапазоне от 0 до 1: ', k);
  if k <> 0 then
    writeln('Среднее арифметическое значение элементов в диапазоне от 0 до 1: ', sum / k:8:2)
  else
    writeln('Нет таких чисел.');
  if m <> 0 then
    writeln('Произведение элементов больших 1: ', p:8:2)
  else
    writeln('Нет таких чисел.');
  writeln('Сумма элементов, расположенных на чётных местах: ', sumc:8:2);
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i] < a[j] then
      begin
        x := a[i];
        a[i] := a[j];
        a[j] := x;
      end;  
  writeln('Упорядочить элементы в порядке убывания: ');  
  for i := 1 to n do
    write(a[i]:8:2);
end.