. 4. Сравните разные определения языка. Выделите в них ключевые слова. Со- ставьте на основе повторяющихся ключевых слов свое определение языка.​

Const  nx = 20;mx = 20;var  x: array[1..nx, 1..mx] of integer;   i, j, n,m,q,r: integer;k:boolean;  b: array[0..nx] of integer;beginWriteln('Введите число строк n ');Read(n);Writeln('Введите число столбцов m ');Read(m);b[0]:=1;if n >= m thenfor i := 1 to n do beginb[i]:=b[i-1]*2;q:=n;endelsefor i := 1 to m do beginb[i]:=b[i-1]*2;q:=m;end;write(b:3);  Randomize; Writeln;  Writeln('Исходный массив');  for i := 1 to n do begin    for j := 1 to m do begin     x[i, j]:=Random(10);      Write(x[i, j]:4);     end;    Writeln;  end;  Writeln; Writeln;  for i := 1 to n do begin    for j := 1 to m do begin    for r:=0 to q do    if (i = b[r])or (j = b[r]) then k:= true;     if k = true then Write(x[i, j]:4)     else Write('  ');     k:=false;    end;    Writeln;  end; end.

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var (imin,imax):=(a.IndexMin,a.IndexMax);
  Print('1:'); a?[:imax].OrderBy(t->t).Println;
  Print('2:'); a?[:imin].OrderBy(t->t).Println;
  Print('3:');
  if imax>imin then Swap(imax,imin);
  a?[imax+1:imin].OrderByDescending(t->t).Println
end.

Пример
n= 13
-18 42 -49 -40 -28 15 4 48 -37 23 44 27 21
1: -49 -40 -28 -18 4 15 42
2: -18 42
3: 15 4 -28 -40