Написать программу для определения является ли треугольник прямоугольным (для определения является ли треугольник прямоугольным, необходимо проверить выполняется ли теорема Пифагора)

var a,b,c:real;beginreadln( a,b,c);if c= sqrt ( sqr(a)+sqr(b)) then writeln(' прямоугольный') else writeln (' не прямоугольный');end.