Составьте программу позволяющую определить являются ли числа a, b, c пифагоровыми тройками.

var   a, b, c: real; begin   writeln('Введите числа a, b, c');   readln(a, b, c);   if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c)) or (sqr(c) = sqr(a) + sqr(b)) then     writeln('Данные числа являются пифагоровым тройками')   else      writeln('Данные числа не являются пифагоровым тройками'); end.