{ PRVOC.PAS              Copyright (c) Miroslav Lízal, Tomáš Okurek }
{ Program rozlozi cislo na sucin prvocisel                          }
{                                                                   }
{ Datum:22.11.2002                             http://www.trsek.com }

program roznasouprv;
uses crt;
var rozklad:string;
var n,jaky,cislo,i:integer;

begin;
 textbackground(yellow);
 textcolor(red);
 clrscr;
 writeln;
 write(' Zadejte cislo ktere chcete rozlozit (1-32767): ');
 i:=1;
 read(cislo);
 n:=2;
 rozklad:='';
 jaky:=0;
 writeln;
 textcolor(white);
 write(' ',cislo,'=');

 while cislo<>1 do
        begin
         while ((cislo mod n)=0) do
                 begin
                  if not(i=1) then write('*');
                  i:=i+1;
                  cislo:=cislo div n;
                  write(n,'');
                 end;
         n:=n+1;
        end;

 while not(keypressed) do;

end.