Сциклов вывести на экран номера всех "счастливых" билетов из диапазона 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); writeln('все миллионеры : d')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);

end.

Var        d1, v1: integer;         d2, p2, v2, w: integer;         t1, t2: real; begin        readln(d1,v1);         readln(d2,p2,v2,w);             t1: = d1 / v1;         t2: = (d2 - p2) / v2 + (p2 / w);   if (t1 < t2) then            write('1')        else if (t2 < t1) then            write('2')        else            write('0');   end.

Procedure tform1.button1click(sender: tobject); var   x1,y1,x2,y2,yf1,yf2 : integer;   k,b : integer; begin   x1 : = 4; y1 : = -5;   x1 : = 0; y1 : = 5;   k : = 2; b: = 2;   yf1 : = k*x1 + b;   yf2 : = k*x2 + b;   if (y1> yf1) then     y1: =1   else     y1: =-1;   if (y2> yf2) then     y2: =1   else     y2: =-1;   if (y1< > y2) then     label1.caption : = 'верно'   else     label1.caption : = 'неверно'; end;