1!+2!+3!+...+n!нужно написать на Паскале,понять не могу

var n: integer;
    k,s,m: int64;
begin
  write('n = ');  readln(n);
  k:=1; s:=0; m:=1;
  repeat
    m:=m*k;
    s:=s+m;
    k:=k+1;
  until k>n;
  writeln('сумма: ',s);
end.

n = 5
сумма: 153