Pascal :

var m,i,n,j:integer;
y:boolean;
begin
 readln(n);
  y:=true;
  for i:=1 to n do
      for j:=i+1 to n do
      for m:=j+1 to n do
      begin
      if i*i+j*j=m*m then begin writeln(i,' ' ,j,' ',m);y:=false; end;
      end;
      if y=true then write('No');
      end.