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

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.