ПОМОГИТЕ ПОЖАЛУЙСТА!ОЧЕНЬ НУЖНО!!! Дано простое число. Найти следующее за ним простое...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!ОЧЕНЬ НУЖНО!!!
Дано простое число. Найти следующее за ним простое число.Программа Паскаль

Answer 1

Var
a,i,b:integer;

begin
readln(a);

 while (b>0)
  begin
   for i:=2 to a
    begin
     if ((a mod i)=0) then b:=b+1;
    end;
   a:=a+1;
  end;
writeln(a);
end.

Comments

Спасиб))Спаси