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

Var x: integer;

begin

write ('введите трехзначное число') ;

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.