Використовуючи цикли і команди модуля
Turtle створіть програму побудови малюнка

//Данная программа вычисляет детерминант матрицы
//PascalABC.NET 3.2 сборка 1318

    Var
  c:char;
  Reci:array of integer;
  ma:array of array of integer;
  n,nc,ip:integer;
  resf:real;

  function minor(ip,i,n:integer; var reci:array of integer):real;
  Var
    ic,j,c,ipp,icc:integer;
    res:real;
    b:boolean;
    arf:array[1..4] of integer;
  begin
  b:=true;
  c:=0;
  reci[ip]:=i;
  ipp:=ip+1;
  if ipp=nc-1 then
  begin
    for ic:=1 to n do
      begin
        for j:=1 to ip do
          if ic=reci[j] then
  b:=false;
          if b=true then
           begin
            inc(c);
            arf[c]:=ma[ipp,ic];
           end;
         b:=true;
        end;
       inc(ipp);
       for ic:=1 to n do
      begin
        for j:=1 to ip do
          if ic=reci[j] then
  b:=false;
          if b=true then
           begin
            inc(c);
            arf[c]:=ma[ipp,ic];
           end;
         b:=true;
        end;
       minor:=arf[1]*arf[4]-arf[2]*arf[3];
      end
      else
  begin
      for ic:=1 to n do
      begin
        for j:=1 to ip do
          if ic=reci[j] then b:=false;
         if b=true then
            res+=ma[ipp,ic]*power(-1,ipp+i)*minor(ipp,ic,n,reci);
           b:=true;
         end;
    minor:=res;
   end;
end;

procedure start();
Var
  i,j:integer;
begin
  write('Введите количество строк и столбцов:');
  readln(n);
  ip:=1;
  nc:=n;
  setlength(Reci,n+1);
  setlength(ma,n+1);
  for i:=1 to n do
  setlength(ma[i],n+1);
  writeln('Введите матрицу:');
  for i:=1 to n do
    for j:=1 to n do
      readln(ma[i][j]);
  for i:=1 to n do
    resf+=ma[ip][i]*power(-1,ip+i)*minor(ip,i,n,reci);
  writeln('Res:',resf);
end;

begin
repeat
readln(c);
until c in ['Z','z','Y','y'];
if c in ['Y','y'] then halt else start();
end.

Пример работы программы:
3 //введено ни z, ни y, повторяем ввод
z //продолжаем программу
Введите количество строк и столбцов:3
Введите матрицу:
9
1
2
8
3
7
4
6
5
Res:-183

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('n=');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var b := SeqRandom(n, -10, 10).Select(t -> t = 0 ? 1 : t).ToArray;

 b.Println;

 var c := a.Zip(b, (p, q)-> p div q).ToArray;

 c.Println;

 Print('Нечетных элементов:');

 a.Where(t -> t.IsOdd).Count.Print;

 b.Where(t -> t.IsOdd).Count.Print;

 c.Where(t -> t.IsOdd).Count.Println;

end.

n= 1372 94 79 3 15 -82 72 -72 14 -79 23 -48 26-6 9 3 10 -2 10 -3 -7 5 -4 -6 7 -1-12 10 26 0 -7 -8 -24 10 2 19 -3 -6 -26Нечетных элементов: 5 7 3