program felbonto; 	{ Szeged, 1991. szeptember 10. }
{ a program az adott sz mot felbontja pr¡mt‚nyez“ire }
uses Crt, Rutin;
var
 n,p,i	 : longint;
 jel : char;
begin
repeat
  { beolvas s }
  ClrScr;
  WriteXY(8,1,'E G � S Z   S Z � M   P R I M T � N Y E Z ™ S    F E L B O N T � S A');
  WriteXY(3,3,' Add meg a felbontand¢ sz mot : '); LongRead(n);
  { szam¡t s ‚s ki¡rat s }
  GotoXY(3,5); Write(n,' = ');
  p:=2;
  while n>1 do
    begin
      if n mod p = 0
        then
	  begin
            { osztjuk p-vel ‚s ki is ¡rjuk a p-t }
	    n:= n div p; Write(p,'*');
	  end
	 else { a k”vetkez“ oszt¢ megkeres‚se } Inc(p);
    end;
  { a felesleges szorz sjelet t”r”lj�k }
  GotoXY(WhereX-1,WhereY); Write('   a felbont sa.');
  {v rakoz s kil‚p‚sre }
  WriteXY(40,25,' ESC kil‚p‚s, m s £jraind¡t s');
  jel:=ReadKey;
until jel=#27;
end.