var a,b,cs,max: integer;

begin
  Write('max: ');
  ReadLn(max);
  for a:=1 to max do begin
    for b:=a to max do begin
      cs := Sqr(a)+Sqr(b);
      if Sqrt(cs)=Int(Sqrt(cs)) then WriteLn(a,'ý+',b,'ý=',Sqrt(cs):0:0,'ý');
    end;
  end;
end.