Курсовая работа: Основы программирования и алгоритмизации

writeln ('Введите натуральное число N: ');

readln (N);

for j:=2 to 2*N do

a[j]:=true;

b:=trunc(sqrt(2*N));

while k<=b do

begin

repeat

inc(k);

until a[k];

j:=2*k;

while j<=2*N do

begin

a[j]:=false;

j:=j+k;

end;

end;

end;

begin

Pch;

writeln ('Числа близнецы на диапозоне ',N,'..',2*N,' :');

B:=1;

for j:=N to 2*N do

if a[j] then

begin

if j-B=2 then writeln (j,' | ',B);

B:=j;

end;

end.