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