Localize file www.TrSek.com/zadania/prvoc.pas

{ 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.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com