Определить какие треугольники, образованные этими точками, имеют максимальные и минимальные периметр и площадь

uses math;
var
    n, i, j, c :longint;
    x, y :array[1 .. 5] of longint;
    minP, maxP, minS, maxS, l1, l2, l3 : real;
 
function dist(v, u :longint) :real;
begin
    dist := sqrt(sqr(x[v] - x[u]) + sqr(y[v] - y[u]));
end;
 
function area(v, u, p :longint) :real;
begin
    area := abs((x[v] - x[u]) * (y[p] - y[u]) - (y[v] - y[u]) * (x[p] - x[u])) * 0.5;
end;
 
begin
    for i := 1 to 4 do
        readln(x[i], y[i]);
    minP := 1000000000;
    minS := 1000000000;
 
    for i := 1 to 4 do
        for j := i + 1 to 4 do
            for c := j + 1 to 4 do begin
                l1 := dist(i, j);
                l2 := dist(i, c);
                l3 := dist(c, j);
                if (l1 + l2 <= l3) then continue;
                if (l2 + l3 <= l1) then continue;
                if (l3 + l1 <= l2) then continue;
                minP := min(minP, l1 + l2 + l3);
                maxP := max(maxP, l1 + l2 + l3);
                minS := min(minS, area(i, j, c));
                maxS := max(maxS, area(i, j, c));
            end;
 
    writeln(minP :0 : 5, ' ',maxP :0 :5);
    writeln(minS :0 : 5, ' ', maxS :0 :5);
 
end.