P.S. Нашёл баг, из-за которого был WA: если вы в Pascal пишите z:=n*(n-1), где z-int64, n-longint, то результат z будет типом longint; правильно так: z:=n; z:=z*(n-1).
И ещё: лучше выводить не 4 знака в ответе, а все.

Edited by author 03.08.2016 11:44