Тупоугольный треугольник

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;
function CosMax(mx,mn,sr:integer):real;{определение косинуса угла против большей стороны}
var x,y:integer;
begin
CosMax:=(mn*mn+sr*sr-mx*mx)/(2*mn*sr);{следствие теоремы косинусов}
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(CosMax(mx,mn,sr)<0)then
 begin
  writeln('Это разносторонний тупоугольный треугольник!');
  writeln('Его стороны в порядке возрастания ',mn,' ',sr,' ',mx);
  writeln('Его площадь=',Plosh(a,b,c):0:2);
 end
else write('Это не разносторонний тупоугольный треугольник!');
readln
end.

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.