Ввести целое n , если n > 0, то вывести в каждой строке значения всех
факториалов от 1 до n с указанием при этом сомножителей из которых
он состоит- Pascal(Паскаль)

Например, для n = 5 формат вывода таков:
1=1
1*2=2
1*2*3=6
1*2*3*4=24
1*2*3*4*5=120 (при помощи цикла)

{$N+}//подключаем сопроцессор для использования типа extended
uses crt;
var n,i,j:byte;
    f:extended;
begin
clrscr;
write('Введите целое число n=');
readln(n);
if n<0 then writeln('Это не положительное число')
else
 begin
  for i:=1 to n do
   begin
    write('1');
    f:=1;
    for j:=2 to i do
     begin
      f:=f*j;
      write('*',j);
     end;
   writeln('=',f:0:0);
  end;
 end;
readln
end.