makentikz Var
    i, k: integer;
    s: real;

begin
    s := 1;
    for i := 1 to 10 do
    begin
        k := k + i;
        s := s * k;
        writeln(i:3,k:3,' ',s);
    end;
    writeln(s);
end.

archery

Verified answer

Program zadacha;
var
i:integer;
s,p:longint;
begin
  s:=1;
  p:=1;
  for i:=2 to 10 do begin
   p:=p+i;
   s:=s*p;
  end;
  write(s);
end.