По заданному целому неотрицательному значению n вычислить n! = 1*2*3*…n. Учтите, что по определению 0!=1 На паскале!б Срочно! Заранее спасибо!
I, n:integer; S:int64; begin readln(n); s:=1; for I := 2 to n do s := s * I; writeln(s); End.