program robot;
uses graph, crt;
var x, y, r, d, m, c: integer;
begin
 randomize;
 d:=detect;
 initgraph(d, m, '');
  c:=0;
 repeat
   x:=getmaxx div 2;
   y:=getmaxy div 2;
   c:=c+1; if c>14 then c:=0;
   repeat
     r:=random(4);
     case r of
      0: x:=x+1;
      1: x:=x-1;
      2: y:=y+1;
      3: y:=y-1;
     end;
     {delay(1);}
     putpixel(x, y, c);
   until (x<0) or (y<0) or (x>getmaxx) or (y>getmaxy) or keypressed;
 until keypressed;
 readkey;
 {readln;}
 closegraph;
end.