"Счастливый билет". Номер билета - 6 цифр. Если сумма первых трех равна сумме последних трех цифр, то билет счастливый. Ввести с клавиатуры шестизначное число и определить, является ли счастливым

Program pr; uses crt; var chislo, sum1, sum2, i:integer; Begin writeln ('Введите номер билета'); readln (chislo); if (chislo>999999) or (chislo<100000)   then writeln ('Такого билета нет')   else        Begin           sum1:=0;           for i:=1 to 3 do               Begin                    sum1:=sum1 + (chislo mod 10);                    chislo:=chislo div 10;                 end;            sum2:=0;            for i:=1 to 3 do                Begin                   sum2:=sum2 + (chislo mod 10);                   chislo:=chislo div 10;                 end;            if (sum1=sum2)                then writeln('Билет счастливый')                else writeln('Билет несчастливый');        end; readln; end.