Два обычных числа именуются близнецами, если они отличаются друг от друга

uses crt;
function Prost(a:integer):boolean;
var i:integer;
nbsp;nbsp;nbsp;nbsp;f:boolean;
begin
if a=1 then f:=false
else
nbsp;begin
nbsp;nbsp;f:=true;
nbsp;nbsp;i:=2;
nbsp;nbsp;while(i*ilt;=a)and f do
nbsp;nbsp;if a mod i=0 then f:=false
nbsp;nbsp;else i:=i+1;
nbsp;end;
Prost:=f;
end;
var n,i,k:integer;
begin
clrscr;
repeat
write(Введите целое число больше 2 n=);
readln(n);
until ngt;2;
k:=0;
for i:=n to 2*n-2 do
if Prost(i) and Prost(i+2) then
nbsp;begin
nbsp;nbsp;k:=k+1;
nbsp;nbsp;writeln(i, nbsp;,i+2);
nbsp;nbsp;if k mod 22=0 then если чисел много, не войдут на экран
nbsp;nbsp;nbsp;begin nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;после 22 задержка
nbsp;nbsp;nbsp;nbsp;write(Нажмите Enter);
nbsp;nbsp;nbsp;nbsp;readln;
nbsp;nbsp;nbsp;end;
nbsp;end;
if k=0 then write(Таких пар нет!);
readln
end.