y+n!=1×2×3×4...n
Посчитать факториал числа с помощью циклического алгоритма. Нужно написать через repeat и for.
​

Program a2;

Crt;

Vari,N : integer;

x, S : real;

Begin

ClrScr;

readln (N);

S:=0;

i:=1;

while i<=N do

begin

readln (x);

S:=S*x;

i:=i+1;

end;

write(s);

readln;

End.