program La2_1;

uses
    System.SysUtils;
var
    A,B,C,I,TriangleCount: Integer;
    P,MinRadius,R : Double;
function GetValue(Message : string) : Integer;
    begin
        Writeln(Message);
        try
            Readln(Result);
        except
            Writeln('Ожидалось число');
            Result := GetValue(Message);
        end;
        if Result < 1    then
        begin
            Writeln('Число должно быть больше нуля');
            Result := GetValue(Message);
        end;
    end;

function GetTriangleRadius() : double;
    begin
        Writeln('Введите длины сторон треугольника');
        A := GetValue('Введите длину стороны a ');
        B := GetValue('Введите длину стороны b ');
        C := GetValue('Введите длину стороны c ');
        P := (A + B + C) / 2;
        if ((p-a) > 0) and   ((p-b) > 0) and ((p-c) > 0) then
            Result := sqrt(((p-a)*(p-b)*(p-c))/p)
        else
        begin
            Writeln('Такого треугольника не существует');
            Result :=  GetTriangleRadius();
        end;
    end;
begin
    MinRadius := 0;
    TriangleCount :=  GetValue('Введите количество треугольников ');
    for I := 1 to TriangleCount do
    begin
        R := GetTriangleRadius();
        if (R < MinRadius) or (MinRadius = 0) then
            MinRadius := R;
    end;
    Writeln(MinRadius:5:2);
    readln;
end.