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

А что означает else? Мы не пишем такое(

проверяется условие, от него идёт два направления (да, нет),   если условие выполняется то идём по ветке then, если не выполняется то сразу переходим к else

Конечно можно эту строку убрать, но тогда будет выводится только то, что билет счастливый, но если билет не счастливый ты об этом неузнаешь

Спасибо)

можно ещё так написать, но это несовсем логичноif (sum1=sum2)  then writeln('Билет счастливый');if (sum1 < > sum2)  then writeln('Билет  несчастливый');

Program pr;uses crt;varchislo, sum1, sum2, i:integer;Beginwriteln ('Введите номер билета');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.