Определить, является ли трамвайный билет счастливым? Счастливым будем считать такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр. паскаль

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

Билет не счастливый

Program lucky;

var

n, l, r: integer;

begin

writeln ('введите номер билета') ;

readln (n) ;

l : = (n div 100000) + (n mod 100000 div 10000) + (n mod 100000 mod 10000 div 1000) ;

r : = (n mod 100000 mod 10000 mod 1000 div 100) + (n mod 100000 mod 10000 mod 1000 mod 100 div 10) + (n mod 100000 mod 10000 mod 1000 mod 100 mod 10) ;

if l = = r then

writeln ('ваш билет счастливый')

else

writeln ('ваш билет не счастливый') ;

end.