Написать программу для турбо паскаля. Условие: По 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.