Cómo expresar sumas multiplicando números primos usando lenguaje pascal libre

La n dada debe ser por defecto un número compuesto.

var

n,nn,i,j:longint;

comenzar

readln(n);

nn:=n;

escribir(n,'=');

para i:=2 para trunc(sqrt(n)) hacer si n mod i=0 luego romper;

escribir(i);

n:=n div i;

nn:=nn div i;

for j:=i to n comienzan

mientras que nn mod j=0 comienzan

write('*',j);

nn:= nn div j;

fin;

si nn=1 entonces romper;

fin;

fin.