var n,p,i:longint;
begin
readln(n);
for i:=1 to n div 2 do if n mod i=0 then p:=i;
writeln(p);
end.