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

program mersen;
var n,c,a:Longint;
      k:integer;
 
function Step(x,y:real):real;
begin
 step:=Exp(y*ln(x));
end;
begin
writeln('Vvedite predelnoe chislo');
readln(n);
a:=random(1)-n;
k:=1;
while k<n do
begin
c:=step(k,2);
if (c-1) div a=1  then  writeln('k');
readln;
end;
end.

program mersen;
type
mass=array[1..100] of longint;
var
y:mass;
k,i,j,n:longint;
begin
write('n=');
readln(n);
for i:=1 to n do
begin
y[i]:=exp(i*ln(2))-1;
k:=0;
for j:=1 to y[i] do
begin
if y[i] mod j=0 then
begin
k:=k+1;
end;
end;
if k=2 then
begin
write('i=');
writeln(i);
writeln('prostoe');
end
else
write('i=');
writeln(i);
writeln('sostavnoe');
end;
end.

{$N+}{подключим математический сопроцессор, если он не включен по умолчанию}
uses crt;
const nmax=60;
function Step2(n:byte):extended;{вычисляем 2^n}
var p:extended;
    i:byte;
begin
p:=1;
for i:=1 to n do
p:=p*2;
Step2:=p;
end;
function Prost(n:longint):boolean;{проверка индексов на простоту}
var i:longint;
begin
if n<2 then Prost:=false
else
 begin
  Prost:=true;
  for i:=2 to round(sqrt(n)) do
  if n mod i=0 then
   begin
    Prost:=false;
    break;
   end;
 end;
end;
 
var n,i:byte;
begin
clrscr;
repeat
write('Введите число до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
if Prost(i) then{если индекс простое число}
writeln(Step2(i)-1:0:0,' ');{выводим число Мерсенна}
readln
end.

program mersen;
uses crt;
var
k,i,j,a:integer;
m:longint;
begin
clrscr;
write('a=');
readln(a);
m:=1;
for i:=1 to a do
begin
m:=m*2;
end;
m:=m-1;
k:=0;
for j:=1 to m do
begin
if m mod j=0 then
begin
k:=k+1;
end;
end;
if k=2 then
begin
writeln('Prostoe');
end
else
begin
writeln('Sostavnoe');
end;
end.

function Prost(n:longint):boolean;{проверка индексов на простоту}
var i:longint;
    f:boolean;
begin
if n<2 then f:=false
else
 begin
  f:=true;
  i:=2;
  while f and(i<=sqrt(n)) do
   begin
    if n mod i=0 then f:=false
    else i:=i+1;
   end;
 end;
Prost:=f;
end;