Ты делишь на 10000. Но что именно делишь, сообщить не соизволит. Откуда компилятор может знать, что ты у себя в голове делишь X - если ты это НЕ написал в коде программы?
И этот бред у тебя во ВСЕХ строках с div и mod. делимое div делитель
делимое mod делитель А у тебя в записи выражений делитель отсутствует - от слова "совсем".
Следующая ошибка: абсолютно бессмысленный read(Y), который ЗАТИРАЕТ то значение Y, которое ты с таким трудом вычислил.
А теперь финт ушами: ВСЁ, что делает твоя программа, записывается в 2 строчки: read(x);
writeln(x + 33333)