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