Определить является ли автобусный билет счастливым.

Var x: integer; beginwrite ('введите трехзначное число'); read (x); for i: =1 to 3 do begin d: =x mod 10; x: =x div 10; s1: =s1+d end; for i: =1 to 3 do begin d: =x mod 10; x: =x div 10; s2: =s2+d end; if s1=s2 then write ('счастливый') else write ('не счастливый') end.