Помогите решить задачу, дано простое число нужно вывести следующее за ним простое число Опции

[Максимка]

дано простое число нужно вывести следующее за ним простое число

[Гость]

А вот помоему наилучший вариант господина Эратосфена...

var
 k,b,m:longint;
 bl:boolean;
begin
 readln(m);
 if (m=2) then writeln('3')
          else
 if (m=3) then writeln('5')
 else
 repeat
  inc(m); b:=2; k:=m div 2;
  while (m mod b<>0)and(b<k) do
   begin
    inc(b);
    if b=k then
     begin
      writeln(m);
      bl:=true;
      halt;
     end;
   end;
 until  bl=true;
end.