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

var x:string; a1,a2,a3,b1,b2,b3,cd:integer; begin readln(x); if length(x) = 6 then begin val(copy(x,1,1),a1,cd); val(copy(x,2,1),a2,cd); val(copy(x,3,1),a3,cd); val(copy(x,4,1),b1,cd); val(copy(x,5,1),b2,cd); val(copy(x,6,1),b3,cd); if a1+a2+a3 = b1+b2+b3 then writeln('Lucky') else writeln('not Lucky'); end; read; end.