Остроугольный треугольник

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;
repeat
writeln('Vvedite 3 chisla:');
readln(a,b,c);
if (abs(a-b)>=c)or(a+b<=c)then{проверка треугольника на существование}
writeln('Это не треугольник! Повторите ввод.');
until (abs(a-b)<c)and(a+b>c);
DlinySt(a,b,c,mx,mn,sr);
if mn*mn+sr*sr>mx*mx then{следствие теоремы Пифагора для остроугольного треугольника}
 begin
  writeln('Это остроугольный треугольник!');
  writeln('Его стороны в порядке убывания ',mx,' ',sr,' ',mn);
  writeln('Его площадь=',Plosh(a,b,c):0:2);
 end
else write('Это не остроугольный треугольник!');
readln
end.