По заданному целому неотрицательному значению 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.