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

uses crt;
procedure DlinySt(a,b,c:integer;var mx,mn,sr:integer);
begin
mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mx-mn;
end;
function Plosh(a,b,c:integer):real;
var p:real;
begin
p:=(a+b+c)/2;
Plosh:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
var a,b,c,mx,mn,sr:integer;
begin
clrscr;
writeln('Vvedite 3 chisla:');
readln(a,b,c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)then
 begin
  writeln('Это не треугольник!');
  readln;
  exit;
 end;
DlinySt(a,b,c,mx,mn,sr);
if(a<>b)and(a<>c)and(b<>c)and(mn*mn+sr*sr<mx*mx)then
 begin
  writeln('Это разносторонний тупоугольный треугольник!');
  writeln('Его стороны в порядке возрастания ',mn,' ',sr,' ',mx);
  writeln('Его площадь=',Plosh(a,b,c):0:2);
 end
else write('Это не разносторонний тупоугольный треугольник!');
readln
end.