Question

Дано простое число найти следующее за ним простое число паскаль

Answer 1

Function simpl(n: integer): boolean;
var i,k: integer;
begin
   i:=2;
   k:=round(sqrt(n));
   while ((n mod i)<>0) and (i<=k) do   
   i:=i+1;
   simpl:=(i>k)
end;
// основная программа
var n: integer;
begin
  write('простое число: ');  readln(n);
  repeat
    n:=n+1;
  until simpl(n);
  writeln('следующее простое: ',n);
end.

простое число: 119
следующее простое: 127