Даны три числа. Определить, можно ли построить прямоугольный треугольник,длины сторон которого равны заданным числам.
Заранее благодарен

uses crt;
var a, b, c : real;
begin
readln (a);
readln (b);
readln ©;
if (sqrt(sqr(a)+sqr(b))=c) or (sqrt(sqr(b)+sqr©) = a) or (sqrt(sqr©+sqr(a)) = b) then writeln ('Yes') else writeln ('No');
readkey;
end.   

Проверям основное условие существования прямоугольного треугольника это выполнение теоремы Пифагора.