PersonalCorpus 版 (精华区)

157571 11:19:37 8 Mar 2002
Bozhang,HIT,P.R.China 1023 Pascal Accepted 0.02 sec 49K


var
    i,k:integer;
begin
    readln(K);
    for i:=3 to 10000 do if (k mod i)=0 then begin k:=i; break end;
    write(k-1);
end.