Трамвайный билет имеет шестизначный номер (от 100000 до 999999). Выяснить, является ли…

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.