A teljes Mandelbrot - halmazt kirajzolˇ Turbo Pascal program

program mandelbrot;
uses crt, graph;
var gd, gm, i, j: integer;
    n: byte;
    asarok, bsarok, lepes, a, b, x, y, xx, hossz: real;

function szin: byte;
  begin
    case n of
      1..6: szin := 5;
      7..12: szin := 13;
      13..18: szin := 1;
      19..24: szin := 9;
      25..30: szin := 3;
      31..36: szin := 11;
      37..42: szin := 2;
      43..48: szin := 10;
      49..54: szin := 15;
      55..60: szin := 7;
      61..66: szin := 14;
      67..72: szin := 12;
      73..78: szin := 6;
      79..84: szin := 4;
      85..92: szin := 8;
      93..100: szin := 0;
    end
  end;

begin
gd := detect;
initgraph(gd, gm, 'c:\bp\bgi');
hossz := 2.5;
asarok := -2;
bsarok := -1.25;
lepes := hossz / 440;
a := asarok;
for i := 1 to 440 do
  begin
    a := a + lepes;
    b := bsarok;
    for j := 1 to 440 do
      begin
        b := b + lepes;
        x := 0; y := 0; n := 0;
        while ( n < 100 ) and ( x * x + y * y < 100 ) do
          begin
            xx := x * x - y * y + a;
            y := 2 * x * y + b;
            x := xx;
            n := n + 1
          end;
        putpixel(i+100, 460-j, szin);
      end;
  end;
readkey
end.