Паскаль. Помогите, пожалуйста.
Проверить, является ли треугольник прямоугольным.

var a,b,c:real;beginwrite('a = '); readln(a);write('b = '); readln(b);write('c = '); readln(c);if (a*a+b*b=c*c)or(a*a+c*c=b*b)or(b*b+c*c=a*a) then writeln('Треугольник прямоугольный') else writeln('Треугольник не прямоугольный (а может быть и не треугольник)');end.Пример:a = 4b = 3c = 5Треугольник прямоугольный