Obarvený kód souboru taborak2.pas

var cislo : word;
function getcislo(var cislo:word):word;
var hledane  : word;
 begin
  hledane:=1;
  repeat
   inc(hledane);
  until (cislo div hledane)*hledane=cislo ;
  cislo:=cislo div hledane;
  getcislo:=hledane;
 end;

function existuje(cislo : word):boolean;
var vysledek : boolean;
    hledane  : word;
 begin
  vysledek:=false;
   for hledane:=2 to cislo do
    if (cislo div hledane)*hledane=cislo then vysledek:=true;
  existuje:=vysledek;
 end;

begin
 clrscr;
  writeln('Rozklad cisla na prvocisla');
   writeln;
  write('Zadej cislo : ');
   readln(cislo);
  if cislo<2 then
   begin
    write('Zadane cislo neni v intervalu <2..65535>');
     readln;
    halt(0);
   end;
  write(cislo,'=');
 repeat
  write(getcislo(cislo));
  if existuje(cislo) then write('*');
 until existuje(cislo)=false;
 readln;
end.

created by PaJa