program finNumbersOfMercen;
uses
   System.SysUtils;
procedure IsPrime(m: longint; var IsCorrect: boolean);
var
   i, k: longint;
begin
   IsCorrect := True;
   if (m > 3) then
   begin
      i := 3;
      k := round(sqrt(m));
      repeat
         if ((m mod i) = 0) then
            IsCorrect := False;
         inc(i);
      until (i > k-1) or (not IsCorrect)
   end;
end;
function check(n:longint;min:integer;IsCorrect:boolean):longint;
begin
    Write('Введите n = ');
  repeat
      try
         Readln(n);
         if (n<= min) then
         begin
            WriteLn('Числа Мерсена, меньшие данного числа(n), не существуют.');
            IsCorrect := False
         end
         else
         begin
            WriteLn('Числа Мерсена,меньшие данного числа(n):');
            IsCorrect := True;
         end;
      except
         begin
            WriteLn('Это не число!');
            IsCorrect := False;
         end;
      end;
   until IsCorrect;
   result := n;
end;
var
   i, sqrtn: longint;
   n, m: longint;
   IsCorrect: boolean;
begin
   IsCorrect := False;
   m := 3;
   WriteLn('Данная программа находит числа Мерсена,которые меньше числа n.');
   n:=check(n,3,IsCorrect);
   While (n > m) do
      begin
         IsPrime(m,IsCorrect);
         if (IsCorrect) then
            WriteLn(m);
         m := m * 2 + 1
      end;
   Readln;
end.