Числа Мерсенна

[Bek-Z]

Простое число Мерсенна - это число, которое может быть представлено в виде 2р-1, где р - тоже простое число. Нужно написать программу для нахождения 15 таких чисел.

[KEA0301]

Ну так возьми первые 15 простых чисел и найди, или начни с1, а далmit выбирай уже полученные числа.

[Bek-Z]

Напиши код пожалуйста если не трудно

[GetMax]

Var
  I:LongInt;
  j:LongInt;
  Mersen:LongInt;
  Kol:Byte;
  k:Byte;
  Prostoe:Boolean;
  ProstoeMersena:Boolean;
Begin
   Kol:=0;
   For i:=1 to High(LongInt) do
   Begin
     Prostoe:=True;
     For j:=2 to i-1 do
     If (i mod j = 0 ) then
     Begin
       Prostoe:=False;
       Break
     End;
     If Prostoe then
     Begin
       Mersen:=2*i - 1;
       ProstoeMersena:=True;
       For k:=2 to Mersen-1 do
       If (Mersen mod k = 0) then
       Begin
         ProstoeMersena:=False;
         Break
       End;
       If ProstoeMersena and (Kol <= 15) then
       Begin
         Inc(Kol);
         Writeln(Mersen);
       End;
       If Kol > 15 then Break
     End;
   End;
     Readln