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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

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

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

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

Цитата:

Сообщение от МишаняИАТ (Сообщение 483447)

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

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

Код:

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.