var m,i,j,f:integer; begin readln(m); for i:=1 to m do for j:=1 to m do if sqr(i)+sqr(j)=m then begin writeln(i,' 'j); f:=1; end; if f=0 then writeln('no'); readln; end.