Нарисуйте блок схему 2 числа а > b, вывести все числа между ними и количество n этих чисел

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const n = 10;
var a:array[1..n] of integer;
i,j:integer;
begin
// Заполним массив сл. числами
  for i:=1 to n do begin
    a[i]:=random(0,99); write(a[i]:4);
  end;
  writeln;
//сортировка массива по убыванию последней цифры.
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if (a[j] mod 10) > (a[j+1]mod 10) then
      swap(a[j],a[j+1]);
  writeln('Отсортированный массив : ');
  for i:=1 to n do write(a[i]:4);   
end.

Тестовое решение:
  14  60  69   6  10  77  66  67  44  84
Отсортированный массив :
  60  10  14  44  84   6  66  77  67  69

Var
  n,i,s,k,p:integer;
begin
  p:=1;
  write('Введите число ');
  readln(n);
  writeln(' среднее арифметическое от 1 до ',N,' = ',(n+1)/2);
  for i:=1 to n do begin
    if (i mod 3 = 0) and (i mod 2 = 0) then begin
      s:=s+i; k:=k+1;
    end;
    p:=p*i
  end;
  writeln(' среднее арифметическое целых,чётных,кратных 3 чисел от 1 до ',N,' = ',s/k);
  writeln(' произведение чисел от 1 до ',N,' = ',p);
end.

Тестовое решение:
Введите число 10
 среднее арифметическое от 1 до 10 = 5.5
 среднее арифметическое целых,чётных,кратных 3 чисел от 1 до 10 = 6
 произведение чисел от 1 до 10 = 3628800