Написать программу, Паскаль. Дано натуральное число N. Вычислить S = 1! + 2! +3! + ... + n! (n>=1) Решить через repeat (с постусловием)

var S,f:longint; n,a:byte;begins:=0;a:=1;f:=1;readln(n);repeatf:=f*a;s:=s+f;inc(a);until a>n;writeln(s);end.Вроде так