Вообщем так . в паскале по информатике я нуб. хоть и плюсы хорошо. решить одну , ну или хотя бы примерно объяснить. билет с 4-значным номером является счастливым, если сумма первых двух цифр равно сумме двух последних. определить, является ли билет счастливым. -^

Program pr;
uses crt;

Var a,x1,x2,x3,x4:integer;

Begin
Writeln('Введите номер билета');
readln(a);

x1:=a div 1000;
x2:=(a div 100) mod 10;
x3:=(a mod 100) div 10;
x4:=a mod 10;

if (x1+x2=x3+x4)
then Writeln('Билет счастливый')
else Writeln('Билет не счастливый');

readln;
end.