var n,i,t,ans:longint;
p:array[1..100000] of integer;
procedure prim(n:longint);
var i,j:longint;
begin
p[1]:=1;
for i:=2 to n div 2 do if （1） then for j:=2 to n div i do p[i*j]:=1;
end;
function find(x:longint):longint;
var temp:longint;
begin
temp:=x; while （2） do temp:=temp*x;
（3 ） ；find:=temp ；
end;
begin
readln(n); （4） ;
for i:=2 to n do if p[i]=0 then
begin （5 ） ; if t>ans then ans:=t; end;
writeln(ans);
4.
