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

var a,b,c,S,p:real;beginreadln(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.