Игра со спичками - Pascal ABC

Формулировка задачи:

Двое играют в следующую игру. Из кучки спичек за один ход игрок вытягивает либо 1, либо 2, либо 1000 спичек. Выигрывает тот, кто забирает последнюю спичку. Кто выигрывает при правильной игре? Входные данные Вводится одно натуральное число — N ( 1≤ N ≤ 10000) начальное количество спичек в кучке. Выходные данные Выведите 1, если выигрывает первый игрок (тот, кто ходит первым), или 2, если выигрывает второй игрок. Примеры

входные данные
2
выходные данные
1

входные данные
3
выходные данные
2

var  n:integer;
 
begin
read(n);
if (n=1) or (n=2) then writeln('1') else
         if n<=999 then
            if n mod 3 = 0 then writeln('2')
            else writeln('1')
            else if (n-1000) mod 3=0 then writeln('1')
            else writeln('2')
end.

Но почему-то пишет неправильный ответ в тесте...

Решение задачи: «Игра со спичками»

Листинг программы

var  n:integer;
 
begin
read(n);
//if (n=1) or (n=2) then write('1') else
         //if n<=999 then
            if n mod 3 = 0 then writeln('2')
            else writeln('1')
            //else if (n-1000) mod 3=0 then write('1')
            //else writeln('2')
end.

Объяснение кода листинга программы

Переменная n содержит число, которое читается из ввода.
Используется оператор if для проверки, равно ли число n единице или двум. Если это так, то выводится значение '1'.
Если n не равно ни одному из этих значений, проверяется, делится ли n на 3 без остатка. Если да, то выводится значение '2'.
Если n не делится на 3 без остатка, проверяется, является ли n на 3 равным нулю. Если да, то выводится значение '1'.
Если n не равно ни одному из этих значений, выводится значение '2'.