程序:
var
r,i,j,a,b:longint;
ti,tj,best,t:real;
begin
readln(r);
best:=0;
for i:=1 to 2*r-1 do
for j:=1 to 2*r-1 do
begin
ti:=sqrt(r*r-(i/2)*(i/2))*2;
tj:=sqrt(r*r-(j/2)*(j/2))*2;
t:=ti*i+tj*j-i*j;
if (t>best) then
begin
best:=t;
a:=i;
b:=j;
end;
end;
writeln(a);
write(b);
end.