(*Cathy Ngai F.4AS *)
(*the purpose of this program is to find out whether three sides can make a right-angled triangle or not*)

program RightAngledTriangle;
uses wincrt;
var A, B, C : integer ;
begin
  write('Please enter lenghts of 3 sides from the smallest to the biggest one ');
  readln( A, B, C );
  if A + B = C
    then writeln('It is not a right-angled triangle')
    else if sqr(C) = sqr(A) + sqr(B)
           then writeln('It is a right angle triangle')
           else writeln('It is a right-angled triangle')
end.

    Source: geocities.com/hk/cathy_740

               ( geocities.com/hk)