program pic(input,output);

var
   r,i,x,y,xd,yd : integer;

%include 'level1:graphinc.pas'

begin
   clear;
   read(r);
   i := 1;
   x := r;
   y := r;
   yd:= 1;
   xd:= 1;
   repeat
      i := i+1;
      colour((i mod 210)+1);
      x := x + xd;
      y := y + yd;
      disc(x,y,r-(i mod r));
      if y <= r then yd := 1;
      if x <= r then xd := 1;
      if y >= 500-r then yd := -1;
      if x >= 680-r then xd := -1
   until false
end.