use strict;
use warnings;

my $n = <>;

for(3..$n){
  if(!($n%$_)){
    print $_;
    last;
  }
}