Pascal :

var
n,p,s,i:longint;
begin
read(n);
for i:=1 to n div 2+1 do
begin
s:=0;
p:=i;
repeat
s:=s+p;
p:=p+1;
if s=n then
begin
write(i,' ',p-1);
writeln;
break;
end;
until s>n-p;
end;
end.