Які методи можна використовувати для розміщення поля у вікні проєкту? place()
placeup()
pack()
pakc()
bind()

//Максимально прямой(в значении тупой) код

var
a,b,c, max, min:real;
begin
Readln(a,b,c);
if (a > b) and (a > c) then Max:= a;
if (c > b) and (c > a) then Max:= c;
if (b > a) and (b > c) then Max:= b;

if (a < b) and (a < c) then Min:= a;
if (c < b) and (c < a) then Min:= c;
if (b < a) and (b < c) then Min:= b;

if (a <> min) and (a <> max) then writeln(a);
if (b <> min) and (b <> max) then writeln(b);
if (c <> min) and (c <> max) then writeln(c);
end.

Пример:
-9 3 6
3

Program SortByShell;

const
  nn=100; // максимальное количество элементов в массиве
 
type
  Mas=array[1..nn] of integer;
 
procedure SortShell(n:integer; var a:Mas);
var
  i,d,t:integer;
  k:boolean;
begin
  d:=n div 2; // начальный шаг сортировки
  while d>0 do begin
    k:=true;
    while k do begin
      k:=false;
      for i:=1 to n-d do begin
        if(a[i]>a[i+d]) then begin
          t:=a[i]; a[i]:=a[i+d]; a[i+d]:=t;
          k:=true
          end
        end
      end;
    d:=d div 2
    end
end;

var
  i,n:integer;
  v:Mas;

begin
  Write('n='); Read(n);
  Writeln('Вводите элементы массива');
  for i:=1 to n do Read(v[i]);
  SortShell(n,v);
  for i:=1 to n do Write(v[i],' ');
  Writeln
end.

Пример
n=15
Вводите элементы массива
-10 -7 4 -12 -26 4 34 -29 7 -28 13 -10 44 0 -46
-46 -29 -28 -26 -12 -10 -10 -7 0 4 4 7 13 34 44