Определить, является ли "счастливым" трамвайный билет с шестизначным номером

("счастливым" считается билет, у которого сумма первых трёх чисел совпадает с

суммой трёх последних чисел). Составить блок-схему

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 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.