Procedure PrintTreangle(n:integer);
VAR
  a,b,c:longint;
  count:longint;
BEGIN
  FOR a:=1 To n Do
    For b:=a+1 To n Do
    Begin
      c:=IntSqrt(a*a+b*b);
      if c>0 Then Writeln(a:4, b:4, c:4);
        Begin
          Writeln(a:4, b:4, c:4);
          count:=count+1;
          if count mod 100=0 Then
          Readln;
        end;
    end;
END;