составить алгоритм ,с помощью которого можно определить ,является ли треугольник с заданными сторонами 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.