program trojka;
var a,b,c,n,i: integer;
begin
 read(n);
 for c:=1 to n do
    for a:=1 to (c) do
     for b:=a to (c) do
      if a*a+b*b=c*c then writeln(a,', ',b,', ',c,'.');

end.