var n: int64;
    i,j: integer;
begin
  write('N = ');  readln(n);
  i:=2;
  repeat
    if (n mod i)=0 then break;
    i:=i+1;
    while true do
    begin
      for j:=2 to round(sqrt(i))+1 do
      if (i mod j) = 0 then break;
      if j=round(sqrt(i))+1 then break;
      i:=i+1;
    end;  
  until i>=round(sqrt(n))+1; 
  if i>=round(sqrt(n))+1 then writeln('число ',n,' простое') 
  else writeln('наибольший делитель ',n,' = ',(n div i));
end.