Дано четырехзначное число. Проверить, является ли оно «счастливым билетом». Примечание: счастливым билетом называется число, в котором: а) при четном количестве цифр в числе сумма цифр его левой половины равна сумме цифр его правой половины; б) при нечетном количестве цифр – то же самое, но с отбрасыванием серединной цифры. Например, рассмотрим число 1322. Его левая половина равна 13, а правая – 22, и оно является счастливым билетом (т. к. 1 + 3 = 2 + 2). Аналогично: 1735 (1 + 7 = 3 + 5), 1111 (1 + 1 = 1 + 1) и т. д.

var a:array [1..4] of integer; i,n:integer;beginwriteln('Введите номер билета');readln(n);for i:=1 to 4 do begina[i]:= n mod 10;n:= n div 10;end;if a[1] + a[2] = a[3] + a[4] then writeln('Билет является счастливым') else writeln('Билет не является счастливым');end.