Трамвайный билет имеет шестизначный номер (от 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 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.