С помошью циклов вывести на экран номера всех "счастливых" билетов из диапазона 000000 до 999999

var

 i1,i2,i3,i4,i5,i6:Longint;

begin

 For i1:=0 to 9 do

 For i2:=0 to 9 do

 For i3:=0 to 9 do

 For i4:=0 to 9 do

 For i5:=0 to 9 do

 For i6:=0 to 9 do

     if i1+i2+i3=i4+i5+i6 then Writeln(i1,i2,i3,i4,i5,i6);

end.

var i1,i2,i3,i4,i5,i6:Longint;begin For i1:=0 to 9 do For i2:=0 to 9 do For i3:=0 to 9 do For i4:=0 to 9 do For i5:=0 to 9 do For i6:=0 to 9 do if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6); Writeln('все миллионеры :D')end.