Идентификация треугольника по двум сторонам и углу между ними.

uses crt;
const t=0.01;//точность сравнения вычисленных величин
var a,b,c,u,mx,mn,sr:real;
begin
writeln('Введите 2 стороны треугольника:');
read(a,b);
repeat
write('Введите угол между ними в градусах 0<u<180 u=');
read(u);
until(u>0)and(u<180);
c:=sqrt(a*a+b*b-2*a*b*cos(u*pi/180));//3 сторона
writeln('c=',c:0:2);
//определим наибольшую сторону для определения прямого угла
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;//большая
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;//меньшая
sr:=a+b+c-mn-mx;//средняя
if (a=b)and(abs(a-c)<=t) then write('Это равносторонний треугольник')
else if ((a=b)and(abs(a-c)>t))
     or ((a<>b)and(abs(a-c)<=t))
     or ((abs(b-c)<=t)and(abs(a-c)<=t))then
      begin
       write('Это равнобедренный ');
       if abs(mx*mx-mn*mn-sr*sr)<=t then writeln('прямоугольный треугольник')
      else writeln('не прямоугольный треугольник');
      end
else
 begin
  write('Это разностороннний ');
  if abs(mx*mx-mn*mn-sr*sr)<=t then writeln('прямоугольный треугольник')
  else writeln('не прямоугольный треугольник');
 end;
readln
end.