Написать программу для турбо паскаля. Условие: По 3 введеным сторонам треугольника определить является ли треугольник прямоугольным.

PROGRAM TREUG; var a,b,c: integer; begin writeln ('Сторона 1='); readln (a); writeln ('Сторона 2='); readln (b); writeln ('Сторона 3='); readln (c); if ((a^2=b^2+c^2)or(b^2=a^2+c^2)or(c^2=a^2+b^2)) then writeln ('треугольник прямоугольный'); else writeln ('треугольник не прямоугольный'); end.