составить алгоритм ,с...

составить алгоритм ,с помощью которого можно определить ,является ли треугольник с заданными сторонами a,b,c равносторонним ,равнобедренным илипрямоугольным

 

var
  a, b, c : real;
begin
  read (a, b, c);
  if (a = b) and (b = c) then writeln ('Равносторонний')
  else if (a = b) or (a = c) or (b = c) then writeln ('Равнобедренный')
  else if (sqr (a) + sqr (b) = sqr (c)) or (sqr (b) + sqr (c) = sqr (a)) or (sqr (a) + sqr (c) = sqr (b))     then writeln ('Прямоугольный')
  else writeln ('No');
end.