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

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. 

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.