Запишите используя функцию случайных чисел заполнить массив A [10 12).С блок-схемой и программой,заранее . Одномерный массив,язык программирования-Паскаль

ответ давал уже когда-то... отклика не дождался, видимо. оно так надо было.

function Knight(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
  if abs(x2 - x1) = 2 then Knight := (abs(y2 - y1) = 1)
  else
  if abs(x2 - x1) = 1 then Knight := (abs(y2 - y1) = 2)
  else Knight := false
end;

function Queen(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
  Queen := (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1))
end;

var
  xk, yk, xq, yq: integer;

begin
  Write('Укажите через пробел координаты коня  [1..8]: ');
  Readln(xk, yk);
  Write('Укажите через пробел координаты ферзя [1..8]: ');
  Readln(xq, yq);
  if Knight(xk, yk, xq, yq) then Writeln('Конь бьет ферзя')
  else
  if Queen(xq, yq, xk, yk) then Writeln('Ферзь бьет коня')
  else Writeln('Фигуры не угрожают друг другу')
end.

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
    int n,k,m;
    cout<<"N = ";  cin>>n;
    cout<<endl;
    if (n%2!=0) {
       cout<<"недопустимое значение N: "<<n<<endl;
       return(1);
    }
    cout<<setw(12)<<"gooses"<<setw(10)<<"rabbits"<<endl;
    m=n/4;  k=(n-m*4)/2;
    while (m>=0)  {
       if (k>0) cout<<setw(10)<<k;
       else cout<<setw(10)<<"--";    
       if (m>0) cout<<setw(10)<<m;
       else cout<<setw(10)<<"--";
       cout<<endl;
       m--;  k+=2;
    }
    system("pause");
    return(0);
}