program primvizsgalat;
uses Crt, Rutin;
var
  szam,i : longint;
  prim   : boolean;
  jel    : char;
begin
 repeat
  ClrScr; WriteLn(' P R I M V I Z S G � L A T':55); WriteLn; WriteLn;
  { beolvas�s }
  Write('   Add meg a vizsg�land� sz�mot : '); LongRead(szam);
  { feltessz�k, hogy pr�m }
  prim:=TRUE;
  szam:=Abs(szam); WriteLn;
  { ha p�ros akkor nem pr�m }
  if szam mod 2 = 0 then begin Write('  2'); prim:=FALSE; end;
  { vizsg�l� ciklus }
  i:=1;
  while (i*i<=szam) and prim do
   begin { 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 begin Write('  ',i*2+1); prim:=FALSE; end;
    Inc(i);
   end;
  { ha 2,3,5 volt, akkor pr�m }
  if (szam=2) or (szam=3) or (szam=5) then prim:=TRUE; 
  { az 1 nem pr�m }
  if szam=1 then begin Write('  Nincs valodi');prim:=FALSE; end;
  { ki�rat�s }
  if prim then Write('   A sz�m pr�m.') else Write(' osztoja, a sz�m nem pr�m.');
  WriteXY(45,25,'ESC kil�p, b�rmi m�s �jra...');
  jel:=ReadKey;
 until jel=#27;
end.