Паскаль. Дано A, B, C – кути трикутника. Визначити чи є цей трикутник прямокутним?

//прога на Pascal`evara, b, c: longint;beginwrite ('Введите стороны треугольника: ');read (a, b, c);writeln ();if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a) thenwrite ('Треугольник - равнобедренный')elsewrite ('Треугольник - не равнобедренный');end.