числа мерсена меньше n

[Лилька91]

дано натуральное число n. найти все числа мерсена, меньше n.Простое число называется числом мерсена, если оно модет быть представлено в виде 2^p-1,где p-тоже простое число.

[Camaro Chevelle]

немного криво и на скорую руку

var
  n, i, j: longint;
begin
  readln(n);
  i:=1; j:=1;
  while (i<n) do begin
    if j in [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31] then
      writeln(i);
    i:=i shl 1+1;
    inc(j);
  end;
  readln;
end.

[Лилька91]

спасибо большое))))