Определить, является ли «счастливым» трамвайный билет с шестизначным номером
(«счастливым» считается билет, у которого сумма первых трёх чисел совпадает с
суммой трёх последних чисел). Составить блок-схему 

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.