Задано натуральное число n. необходимо составить программу, с помощью которой находится произведение первых n сомножителей — Pascal(Паскаль)

program zad1;

uses crt;

label 1;

var
  p: array [1 .. 10000] of integer;
  n, i, j: integer;
  b: boolean;

begin
  clrscr;
  writeln('VVEDITE n');
  readln(n);
  p[1] := 1;
  for i := 1 to n do
  begin
    for j := 1 to 10000 do
      if p[j] <> 0 then
        p[j] := p[j] * sqr(i);
    for j := 1 to 10000 do
    begin
    1:
      if p[j] >= 10 then
      begin
        p[j] := p[j] - 10;
        p[j + 1] := p[j + 1] + 1;
        goto 1;
      end;
    end;
  end;
  b := false;
  for j := 10000 downto 1 do
  begin
    if p[j] <> 0 then
      b := true;
    if b = true then
      write(p[j]);
  end;
  readkey;

end.