добавить функцию!!!

     program abc;
uses   crt;
var
   F,i,N,j,k,l,B,a:Integer;
   s,Result:string;
 
begin
n:=1;
for i:=1 to f do
begin
n:=n*i;
end;
 
begin
    Write('Vvedite F = ');
    Readln (F);
 
   a:=0;
if N=1 then  Exit;
    B:=N;
    k:=2;
        s:='';
         //Разложение числа на простые множители,
Repeat
     j:=0;
for i:=1 to k do
if k mod i=0 then j:=j+1;
if j=2 then//если мы нашел первое простое число,надо проверит N делится ли на эту числу,
                     //если да,тогда продолжаем выполнение проседуруа
      begin
if B mod k=0 then
      begin
          s:=s+'*'+inttostr(k);
          a:=B div k;
while a mod k=0 do//рекурсивно, продолжаем процедуру
      begin
            s:=s+'*'+inttostr(k);
          a:=a div k;
if a mod k=0 then continue else break;
end;
end;
end;
     inc(k,1);
until k=N;
    delete(s,1,1);//надо удалить первый символ '*'
    Result:=IntToStr(N)+'='+s;
    Writeln (Result);
    Readln
end;
end.