Использование процедур и функций

[Сергей Игоревич]

Дано натуральное число n. Выяснить, имеются ли среди чисел n, n+1, … 2n близнецы, т.е. простые числа, разность между которыми равна двум. Определить подпрограмму, позволяющую распознать простые числа. на паскале

ребят помогите, плиз

[XandrMoro]

const maxn = 100000;

var mass: array [1..maxn] of byte;
    n, m, k: longint;

procedure EratosfenSeive;
var i, j: longint;
begin
 i:= 1;
 while i*i <= n do
  begin
   inc(i); j:= 2;
   if mass[i] = 0 then
    begin
     while i*j <= n do
      begin
       mass[i*j]:= 1;
       inc(j);
      end;
    end;
  end;
end;

begin
 fillchar(mass, sizeof(mass), 0); k:= 0; mass[1]:= 1;
 readln(m);
 n:= m*2;
 EratosfenSeive;
 n:= n - 2;
 while n >= m do
  begin
   if (mass[n] = 0) and (mass[n+2] = 0) then inc(k);
   dec(n);
  end;
 writeln(k);
end.

[Сергей Игоревич]

Спасибо огромное))))

[Grag]

const maxn = 100000;
var 
   mass:array [1..maxn] of byte;

Не для всех паскалей сие приемлемо!