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

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