Помогите пожалуйста с решением задачи

[Ксенька89]

Задали задачу, не знаю как решить(.

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

Помогите пожалуйста, совсем чайник в паскале)

[Gongled]

Немного кривовато, но работает.

program pr;
uses CRT;
var
a, b, c : real;

{ Проверяем: тупоугольный или нет }
function check_tr(a, b, c : real) : boolean;
var
key : boolean;
begin
key := false;

     if (a<>b) and (b<>c) and (a<>c) then
     begin
          if (((sqr(a)-sqr(b)-sqr(c)) / (-2*b*c)) < 0) or
          (((sqr(b)-sqr(a)-sqr(c)) / (-2*a*c)) < 0) or
          (((sqr(c)-sqr(a)-sqr(b)) / (-2*a*b)) < 0) then key := true
             else key := false;
     end
     else
     key := false;
     check_tr := key;
end;

{ Формула Герона }
function tr_area(a, b, c : real) : real;
var
p : real;
begin
     p := (a + b + c) / 2;
     tr_area := sqrt(p*(p-a)*(p-b)*(p-c));
end;

{ Вывод значений }
procedure print_result;
begin
     writeln('Площадь: ',tr_area(a,b,c));
     write('Стороны: ');

     if (a > b) then
         if (a > c) then
             if (b > c) then write(c:5,b:5,a:5) else write(b:5,c:5,a:5)
         else
             if (b > c) then write(c:5,a:5,b:5) else write(b:5,a:5,c:5)
     else
         if (b > c) then
             if (a > c) then write(c:5,a:5,b:5) else write(a:5,c:5,b:5)
         else
             if (a > c) then write(a:5,b:5,c:5);
end;

begin
clrscr;

write('Введите через пробел три стороны: ');
read(a,b,c);
if check_tr(a,b,c) then print_result else EXIT;

end.

[Ксенька89]

Спасибки!!!