program prvocinitel;

uses crt;

var n : longint;
    pom : real;
    ANO : boolean;

procedure cinitel(k : longint);
var i : longint;
begin
  i := 1;
  if (k > 1) then
    repeat
      i := i + 1;
    until (k mod i) = 0;
  if k = i then write(k)
  else begin
    write(i,' * ');
    cinitel(k div i);
  end;
end;

begin
  clrscr;
  writeln('Tento program rozlozi kladne cele cislo n na soucin prvocinitelu.');
  write('Vloz cislo, ktere chces rozlozit : ');
  readln(pom);
  if (pom - trunc(pom) <> 0) then
  begin
    writeln('Vlozil jste realne cislo. Bude prevedeno na cele.');
    n := trunc(pom);
  end
  else n := trunc(pom);
  writeln;
  write(n,' = ');
  if (n < 0) then write('-');
  if (n <> 0) then cinitel(abs(n))
  else write(0);
  writeln;
  writeln('Stiskni ENTER ...');
  readln;
end.