uses crt;
var
n,i:integer;
begin
writeln('n?');
readln(n);
for i:=n to 2*n-2 do writeln(i,' ',i+2);
readln;
end.
Следующий вариант
function prost(n:longint):boolean;
var i:longint;fl:boolean;
begin
fl:=true;
for i:=2 to int(sqrt(n)) do
if n mod i<>0 then
begin
fl:=false;
break;
end;
if fl then prost:=true else prost:=false;
end;
begin
for i:=n to 2*n do
begin
if (prost(i)=true) and (prost(i+2)=true) then
writeln('N1=',i,' N2=',i+2);
end;