С клавиатуры вводится целое шестизначное число. Необходимо определить, является ли оно "счастливым". ("Счастливыми" называются те числа, у которых сумма перых трёх цифр равна сумме вторых трёх цифр).

vars:string;beginreadln(s);if length(s)<>6 thenwrite('Введите 6-ти значное число') elseif (strtoint(s[1])+strtoint(s[2])+strtoint(s[3])=strtoint(s[4])+strtoint(s[5])+strtoint(s[6])) thenwrite('Билет счастливый') elsewrite('Билет счастливый');end.