@IAM776128
var i, count : integer; N : longint; A : array[1..10000] of longint; BEGIN readln(N); count := 0; i := 2; A[1] := 5; repeat A[i] := A[i-1] * 5; count ...