Pascal Использование массивов, строк, условных операторов не допускается

С клавиатуры вводится шестизначное число, определить является ли оно счастливым. Т.е. сумма первых трех цифр равна сумме второй тройки цифр. Если да - вывести `1`, если нет - `0`. (Воспользоваться тем, что `0` делится на любое число).