Предлагаю более эффективный алгоритм сложности O(1):

Код

Program main;
Begin
WriteLn('k=8');
End.