program chilbert(input,output);

   var a,x,y,course,flag:integer;
       xsize,ysize:integer;

  {$I GRAPHICS.PAS}

  {$I B:HILBERT.SRC}

  begin
    readln(a,xsize,ysize);
    course:=2;
    x:=0;
    y:=32000;
    flag:=1;
    opengraph;
    cleargraph;
    setlinecolor(white);
    setlinestyle(solidline);
    grxx1:=x;
    grxy1:=y;
    hilbert(a,xsize,ysize);
    readln;
    cleargraph
  end.