2017年10月18日普及组 面积最大

程序：

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.