Трамвайный билет имеет шестизначный номер(от 100000 до 999999). Выяснить, является ли билет "счастливым". Билет назовем "счастливым", если сумма первых трёх чисел равна сумме трёх других чисел. Через цикл whili, а также div mod

Program Task;Var a: Array of Integer;    n, b, c, i: Integer;Begin    Write('Введите номер билета: №');    ReadLn(n);    b := n;    While b <> 0 Do    Begin        b := b Div 10;        c := c + 1;    End;    If (c < 1) Or (c > 6) Then        WriteLn('Неверный номер билета. Завершение программы.')    Else    Begin        SetLength(a, c);        b := n;        For i := c - 1 DownTo 0 Do        Begin            a[i] := b Mod 10;            b := b Div 10;        End;        If (a[0] + a[1] + a[2]) = (a[3] + a[4] + a[5]) Then            WriteLn('Билет "счастливый"!')        Else            WriteLn('Не повезло');    End;    ReadLn;End.