Pascal Использование массивов, строк, условных операторов не допускается
С клавиатуры вводится шестизначное число, определить является ли оно счастливым. Т.е. сумма первых трех цифр равна сумме второй тройки цифр. Если да - вывести `1`, если нет - `0`. (Воспользоваться тем, что `0` делится на любое число).
Получить i-ую цифру можно по формуле x / 10^i mod 10. Т.е. достаточно вывести результат сравнения == двух сумм из 3 слагаемых для ответа.