Дано натуральное число n. Найти все меньшие n числа Мерсенна. (Простое число называется числом Мерсенна, если оно может быть

procedure isprime(n: longint; var ip: boolean);
var i, sqrtn: longint;
begin
  if (n >= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0)
    then begin
      i := 5;
      sqrtn := trunc(sqrt(n));
      ip := false;
      while i <= sqrtn do
        begin
          if n mod i = 0 then exit;
          inc(i, 2)
        end;
      ip := true
    end
    else ip := (n = 2) or (n = 3)
end;
 
var n, m: longint;
    mp: boolean;
 
begin
  m := 3;
  write('n = ');
  readln(n);
  if n <= m
    then writeln('Prime Mersenne numbers, smaller this number, don''t exist.')
    else begin
      writeln('Prime Mersenne numbers, there is less than this number:');
      while n > m do
        begin
          isprime(m, mp);
          if mp then writeln(m);
          m := m * 2 + 1
        end
    end;
  readln
end.

ответ: Думаю столько хватит

В Павлодарском уезде Семипалатинской области 12 апреля 1899 года родился мальчик. Через 100 лет его юбилей отметят на международном уровне. Так будут чествовать одного из выдающихся ученых Казахстана — Каныша Сатпаева. Он появился в семье уважаемого и образованного бия (главы аула) Имантая и его молодой жены Алимы. Назвали ребенка Габдул-Гани, мать ласково звала Ганыш, а в школе за ним навсегда закрепилось имя Каныш.

Сатпаев Каныш получил в школе родного аула, затем в павлодарском русско-казахском училище, которое с отличием окончил в 15 лет. Преодолев сопротивление отца, он учится дальше. Новая образовательная ступень Сатпаева — Семипалатинская учительская семинария. Юноша готовится поступать в вуз. Но начинаются проблемы со здоровьем: доктора обнаружили у молодого человека туберкулез. Этот недуг забрал жизнь матери Каныша, когда ему едва исполнилось два года. Пришлось отодвинуть планы и отправиться домой на лечение Сатпаеву народное средство — кумыс. Образованного 20-летнего юношу назначают председателем Казкультпросвета, избирают народным судьей Баянаульского района. Здесь в 1921 году произошло знакомство, которое дало иное направление всей жизни Каныша. На лечение кумысом в эти края приехал ученый Михаил Антонович Усов. Он увлек юношу рассказами о значении полезных ископаемых. Для продолжения образования Каныш Сатпаев выбирает технологический институт в Томске, где через 5 лет он получает диплом горного инженера.