Введите три числа. если они могут быть длинами сторон остроугольного треугольника, введите их в порядке возрастания и вычислите площадь полученного треугольника. составить программу в паскале, и схему если сможите.

Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.