program ikerprim_kereses;
uses Crt, Rutin;
var
  n,k : longint;
  db, also, felso  : longint;

function prim_e( szam : longint):boolean;
var
   prim : boolean;
   i    : longint;
begin
  { feltessz�k, hogy pr�m }
  prim:=TRUE;
  { vizsg�l� ciklus , p�ross�got nem kell vizsg�lni ! }
  i:=1;
  repeat { am�g pr�m vagy a gy�k�t el�rt�k }
    { a p�ratlan sz�mokkal pr�b�ljuk osztani }
    if szam mod (i*2+1) = 0 then prim:=FALSE;
    Inc(i);
  until (i*i>=szam) or (not prim);
  { eredm�ny }
  prim_e:=prim;
end;

begin
  ClrScr; WriteLn('I K E R P R I M   K E R E S � S':55); WriteLn; WriteLn;
  { beolvas�s }
  repeat
    WriteXY(3,3,'Az intervallum als�  hat�ra : '); LongRead(also);
  until also>0;
  repeat
    WriteXY(3,5,'Az intervallum fels� hat�ra : '); LongRead(felso);
  until felso>also;
  { kicsi a fels� hat�r }
  if felso<5 then
    begin WriteXY(3,7,'Nincs ikerpr�m ebben az intervallumban!');
          Delay(3000); Halt; end;
  { az als� hat�r 5 alatt van }
  ClrScr; WriteLn('I K E R P R I M   K E R E S � S':55); WriteLn;
  db:=0;
  if (also<4) and (felso>4)
    then begin Write(' (    3,    5 ) '); db:=1; end;
  { a kezd� k �rt�ke }
  k:=also div 6; n:=6*k+5;
  while n+2<felso do
   begin
    { ha n �s n+2 is pr�m, akkor p�rt tal�ltunk }
    if prim_e(n) and prim_e(n+2)
      then begin Write('(':2,n:5,',',(n+2):5,' ) '); Inc(db); end;
    Inc(k); n:=6*k+5;
   end;
  WriteLn; Write(' Az adott [ ',also,' , ',felso,' ] intervallumban ',db,' ikerpr�m tal�lhat�.');
  repeat until KeyPressed;
end.