unit PABCExtensions; 
end.

begin
  Writeln('Hello world!');
end.

type
  t1<T>=class
    
    b: byte;
    
    public class function GetNew := default(t1<T>);
  
  end;
 
begin
  var a1 := t1&<byte>.GetNew;
  //a1;//тут если поставить точку - не показывает t1.b
  
  var a2 := t1&<byte>.Create;//а тут вообще считает что a2 это процедура, поэтому точка не работает
end.

type 
  Less[T] = typeclass
    function operator<(x, y: T): boolean;
  end;
  Less[integer] = instance
    function operator<(x, y: integer): boolean := x<y;
  end;
 
function MinIndex<T>(a: array of T): integer; where Less[T];
begin
  Result := -1;
  var min := a[0]; 
  for var i:=0 to a.Length

procedure F(x: object);
begin
  exit;
end;
 
begin
  F(1); // <--
end.

begin
  try
  except
    on e: EInvalidOp do // Если добавить сюда begin-end ошибка исчезнет.
  end; // <--
end.

uses Tuples, Writer;
var
  A: Tuple3;
  B, C, D: IntTuple2;
  
begin
  B := IntTpl2(1, 2);
  C := IntTpl2(3, 4);
  D := IntTpl2(5, 6);
  A := Tpl3(B, C, D);
  Println(A);
  Println(B[0]);
end.

var
  l, d, r, h, s, v : real;
begin
  repeat
    write('введите длину цистерны (в метрах): ');
    readln(l);
  until (l > 0) and (l <= 100);
  repeat 
    write('введите диаметр цистерны (в метрах):

 function mult(s1:string;b:integer):string;
 var longnum:array[0..1000] of integer;
     i,c:integer;
     res:string;
  begin
  longnum[0]:=length(s1);
    for i:=0 to longnum[0] do
     longnum[longnum[0]-i+1]:=Ord(s1[i])-48;
     for i:=1 to longnum[0] do
         begin
              longnum[i]:=c+longnum