Var n,n1,n2,s1,s2:integer;
begin
write('n = '); readln(n);
n1:=n div 1000;
n2:=n mod 1000;
s1:=n1 div 100+(n1 div 10 mod 10)+n1 mod 10;
s2:=n2 div 100+(n2 div 10 mod 10)+n2 mod 10;
if s1=s2 then writeln('Билет счастливый')
else writeln('Билет не счастливый');
end.
Пример 1:
n = 156309
Билет счастливый
Пример 2:
n = 762453
Билет не счастливый