MAHOA656 PAS

const max = 1000000;
var    p:array[1..max] of longint;

procedure sang(n:longint);
var i,j:longint;
begin
    for i:=2 to n div 2 do
           if p[i]=0 then
          begin
              j:=i+i;
              while j<=n do
                 begin
                     inc(p[j]);
                     j:=j+i;
                 end;
          end;
end;

procedure solve;
var n,t,d,i,imax:longint;
begin
    d:=0;
    read(n);
    sang(n);
    imax:=2;
    for i:=n downto 3 do
           if p[i]>p[imax] then imax:=i;
    writeln(imax);
end;

begin
    assign(input, 'mahoa656.inp');reset(input);
    assign(output, 'mahoa656.out');rewrite(output);
    solve;
    close(input);close(output);
end.