лабы / лаб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.