var i,k,n: integer;
begin
  n:=0;
  k:=201220151;
  while n=0 do
  begin
    n:=1;
    for i:=2 to round(sqrt(k)) do
    if (k mod i) = 0 then 
    begin
      n:=0; 
      break;
    end;
    if n=1 then writeln('простое число:  ',k)
    else k:=k-1;
  end;
end.