Определить, является ли треугольник прямоугольным - PascalABC.NET

var a,b,c,max,min,sr,p,s:real;
begin
writeln('Введите длины сторон');
readln(a,b,c);
if(a>=b+c)or(b>=a+c)or(c>=a+b) then write('Это не треугольник')
else
 begin
   if a>b then max:=a else max:=b;
   if c>max then max:=c;
   if a<b then min:=a else min:=b;
   if c<min then min:=c;
   sr:=a+b+c-max-min;
   if min*min+sr*sr=max*max then write('Треугольник прямоугольный')
   else
    begin
     writeln('Треугольник не прямоугольный');
     p:=(a+b+c)/2;
     s:=sqrt(p*(p-a)*(p-b)*(p-c));
     write('Площадь=',s:0:2);
   end;
  end;
end.