{5000 feletti iteracio-szammal erdemes kezdeni. A maximum 500 000}

Uses {newdelay,}Crt, Graph;

Type Coord = Record
       XCor,
       YCor : Word;
     End;

Var a, b, c, g : Coord;
    Iteration : LongInt;

Procedure Init;
  Var Driver, Mode : Integer;
      s            : String;
      cd           : Integer;

  Begin
    TextAttr := black
     * 16 + White;
    ClrScr;
    Repeat
      GotoXY( 1, 1);
      Write( 'Iteraciok szama : ');
      GotoXY( 20, 1);
      ClrEol;
      ReadLn( s);
      Val( s, Iteration, cd);
    Until ( Iteration >= 1) And ( Iteration <= 500000) And ( cd = 0);
    Randomize;
    DetectGraph(Driver, Mode);
    InitGraph(Driver, Mode, '');
    a.XCor := 0;
    a.YCor := 480;
    b.XCor := 640;
    b.YCor := 480;
    c.XCor := 320;
    c.YCor := 1;
    g.XCor := Random(640);
    g.YCor := Random(480);
  End;

Procedure Run;
  Var r : Byte;
      i : LongInt;
  Begin
    i := 0;
    Repeat
      r := Random(3);
      PutPixel(g.XCor, g.YCor, i Mod 15 + 1);
      Case r Of
        0 : Begin
              g.XCor := (a.XCor + g.XCor) Div 2;
              g.YCor := (a.YCor + g.YCor) Div 2;
            End;
        1 : Begin
              g.XCor := (b.XCor + g.XCor) Div 2;
              g.YCor := (b.YCor + g.YCor) Div 2;
            End;
        2 : Begin
              g.XCor := (c.XCor + g.XCor) Div 2;
              g.YCor := (c.YCor + g.YCor) Div 2;
            End;
      End;
      Inc(i);
    Until (i > Iteration);
  End;

Procedure Done;
  Begin
    ReadKey;
    CloseGraph;
  End;

Begin
  Init;
  Run;
  Done;
End.{$N+}