begin repeat var a,b,x:comp=0;read(a,b);while a-x<b/x do inc(x);writeln(x,^`,a-x)until 1=0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page