Определить является ли натуральным число n " счастливым" (из шести цифр) - Pascal

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

Определить является ли натуральным число n " счастливым" (из шести цифр). для выделения цифр не использовать строковые функции

Решение задачи: «Определить является ли натуральным число n " счастливым" (из шести цифр)»

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

var n:longint;
begin
write('n=');
readln(n);
if(n div 100000)+(n div 10000 mod 10)+(n div 1000 mod 10)=(n div 100 mod 10)+(n div 10 mod 10)+(n mod 10)
then write('Счастливое') else write('Не счастливое') ;
end.

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

Объявляется переменная n типа longint, которая будет использоваться для хранения числа, введенного пользователем.
Вводится число n с помощью функции readln().
Используется условие, чтобы проверить, является ли число n счастливым (из шести цифр).
Если результат вычисления соответствует определенному шаблону (возможно, это не единственное условие), то выводится сообщение Счастливое.
В противном случае выводится сообщение Не счастливое.