лабы / лаб6 / lab6_2

program lab6_2;
const n = 3;
type
    vector = array[1..n] of real;
var
    a: vector = (1.7,0.9,4.5);
    b: vector = (1,2,2.5);
    c: vector = (2,2.5,2.8);
    results: vector = (0,0,0);
    i: byte;

function findSquare(ai,bi,ci: real):real;
var p,s: real;
begin
    p := (ai+bi+ci)/2;
    s := p*Sqrt((p-ai)*(p-bi)*(p-ci));
    findSquare := s;
end;

function sortVector(vec: vector):vector;
var 
    temp: real;
    j: byte;
begin
    for i:=1 to n do
    begin
        for j:=1 to n-1 do
        begin
            if (vec[j] > vec[j+1]) then
            begin
                temp := vec[j];
                vec[j] := vec[j+1];
                vec[j+1] := temp;
            end;
        end;
    end;

    sortVector := vec;
end;

begin
    for i:=1 to n do results[i] := findSquare(a[i],b[i],c[i]);

    results := sortVector(results);

    WriteLn(results[1]);
end.