Помогите составить программу, которая определяет три целых числа с клавиатуры, являются ли они сторонами прямоугольного треугольника.

 var    a,b,c,g : integer;    // a,b,c - стороны          begin  readln (a,b,c);    // g - находим гипотенузу (наибольшее из чисел)  if a > b then    begin    if a > c then      g := a    else      g := c    end  else    if b > c then    g := b    else    g := c;    // Если треугольник прямоугольный, то  // сумма квадратов катетов равна квадрату гипотенузы       if (sqr (a) + sqr (b) = sqr(g))  or (sqr (a) + sqr (c) = sqr(g)) then    writeln ('Yes')    else    writeln ('No');  end.