KV3-NO2

var n, m, i :integer;

begin

readln(n);
i:=0;
for m:=2 to n do begin
    if n mod m <> 0 then
        i:=i+1;
end;

if (i=n-2) or (n=1) then
    writeln(n);

end.