2. Заполнить массив различными действительными числами, случайно выбираются из указанного промежутка. Вывести на экран элементы массива в два столбика

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,k1,k2: byte;
  p1,p2: integer;
begin
  repeat
    write('Введите размер массива n (n<=100): ');
    readln(n);
  until (n in [1..100]);
  repeat
    write('Введите начало диапазона p1: ');
    readln(p1);
    write('Введите конец диапазона p2 (p1<p2): ');
    readln(p2);
  until p1<p2;
  writeln('Массив:');
  for i:=1 to n do
  begin
      a[i]:=random(p2-p1+1)+p1;
      write(a[i],' ');
      if a[i] mod 2<>0 then inc(k1);
      if (a[i] mod 5=0)and(a[i]>10) then inc(k2);
  end;
  writeln;
  writeln('Четные    Нечетные');
  for i:=1 to n div 2 do
    writeln(a[i*2-1]:5,' ',a[i*2]:10);
  if n mod 2<>0 then writeln(a[n]:5);
  writeln('Количество нечетных элементов: ',k1);
  writeln('Количество кратных 5 и более 10: ',k2);
end.