Кто знает Паскаль, помогите, пожалуйста, решить

[МишаняИАТ]

Кто знает Паскаль, помогите, пожалуйста, решить

Дано простое число. Составить функцию, которая будет находить следующее за ним простое число.

 

[МишаняИАТ]

Нарооод нужно завтра сдать, не дайте чтоб в армию забрали=) что-то не охото пока что туда)

 

[Vladimir_S]

Нарооод нужно завтра сдать, не дайте чтоб в армию забрали=) что-то не охото пока что туда)

Ладно, живи пока.

VAR
 prime:Word;

Function Next_Prime(p:Word):Word;
var
 i:Integer;
 b:boolean;
 px:Word;
begin
 px:=p;
 Repeat
  b:=true;
  Inc(px);
  for i:=(px div 2) downto 2 do
   if (px mod i)=0 then b:=false;
 Until b;
 Next_Prime:=px;
end;

BEGIN
 Write('Enter the prime number: ');
 ReadLn(prime);
 WriteLn('Next prime number is ',Next_Prime(prime));
 ReadLn;
END.

 

[МишаняИАТ]

Спасибо=)