program Goldbach_sejtese;
uses Crt,Rutin;
const
  { 64000-ig 8413 pr�m van }
  m=8500;
  { adatszegmens korl�t miatt csak ekkora a szita }
  N=32000;
var
  a,f,szam    : word;
  i,j,k,l,koz : word;
  p           : array[1..m] of word;
  szita       : array[1..N] of boolean;
  jel         : char;
begin
  ClrScr;
  WriteXY(25,1,'G O L D B A C H   S E J T � S E ');
  WriteXY(25,15,' Kiv�logatom 64000-ig a pr�meket !');
  { pr�mek kiszit�l�sa a p t�mbbe }
  for i:=1 to N do szita[i]:=TRUE;
  { a 2 pr�m, ki�ratjuk }
  p[1]:=2;
  { szam�t�s a 3-mal indul }
  i:=3;
  { ciklus, am�g i nem lesz nagyobb a hat�r n�gyzetgy�k�n�l }
  while i<=Round(Sqrt(2*N)+1) do
   begin
    if szita[(i-1) div 2] then
     begin
       { p�ratlan sz�mszoros elemeket kell kiejteni }
       koz:=2*i;
       { az els� a 3-szorosa a tal�lt pr�mnek }
       j:=3*i;
       while j<=2*N+1 do
         begin
          { a t�bbsz�r�s t�rl�se a pr�mek k�z�l }
          szita[(j-1) div 2]:=FALSE;
          j:=j+koz;
         end;
      end;
     i:=i+2;
   end;
  { ki�rat�s }
  j:=1;
  for i:=1 to N do if szita[i] then begin Inc(j); p[j]:=2*i+1; end;
  Window(1,2,80,25);
  { pr�mek kiszit�lva }
  repeat
   ClrScr;
   { hat�rok beolvas�sa }
   repeat
    WriteXY(8,2,' A vizsg�lt tartom�ny kezdete : '); WordRead(a);
   until (a>3) and (a<2*N);
   repeat
    WriteXY(46,2,' �s v�ge : '); WordRead(f);
   until (f>=a) and (f<=2*N);
   WriteLn;
   { a hat�rokat felezz�k }
   a:=(a+1) div 2;
   f:=f div 2;
   { a p�ros sz�mok el��ll�t�sa a hat�rokon bel�l }
   for i:=a to f do
    begin
      { szam : a felbontand� sz�m }
      szam:=i*2;
      { ki�rjuk a sz�mot }
      Write(szam:6);
      { megkeress�k a n�la kisebb legnagyobb pr�mek sz�m�t, ez az l }
      l:=1; while p[l]<szam do Inc(l);
      { l sz�m� pr�mmel pr�b�lkozunk }
      for j:=1 to l do
        for k:=j to l do
          begin
            { ha el��ll �sszegk�nt, akkor ki�rjuk az �sszeget }
            if p[j]+p[k]=szam then Write(' = ',p[j]:4,' + ',p[k]:4);
          end;
      WriteLn;
    end;
   { kil�p�s vagy visszat�r�s }
   WriteXY(45,24,'ESC kil�p, b�rmi m�s �jra...');
   jel:=ReadKey;
  until jel=#27;
end.