(*             Teresa Tong F.4AS 30    October,2001              *)
(* to state whether the 3 sides can from a right-angled triangle *)

program right_angled_triangle;
uses wincrt;
var A, B, C : integer ;
begin
  write('Enter lenghts of 3 sides: ');
  readln( A, B, C );
  if A + B = C
    then writeln('They cannot form a right-angled triangle.')
    else if sqr(C) = sqr(A) + sqr(B)
           then writeln('They form a right-angled triangle.')
           else writeln('They cannot form a right-angled triangle.')
end.

-/-\-/-\-/-\-/-\-/-\-/-\-/-\-/-\-/-\-/---\\-/-\-/-\-/-\-/-\-/-\-/-\-/-\-/-
e.g.
1)  Enter lenghts of 3 sides:                 6  8  10
    They form a right-angled triangle.
--------------------------------------------------------------------------
2)  Enter lenghts of 3 sides:                 9  6  10
    They cannot form a right-angled triangle. 
--------------------------------------------------------------------------
3)  Enter lenghts of 3 sides:                 4  5  9
    They cannot form a right-angled triangle.

    Source: geocities.com/ttt_7_ttt/home6

               ( geocities.com/ttt_7_ttt)