program palette;

var r : array[1..6] of real;
var g : array[1..6] of real;
var b : array[1..6] of real;
var size :  integer;

var x : integer;
var f : real;

procedure i(c : real);
var f : real;
var x,y : integer;
begin

   f:=size-1;
   f:=1.0/f;
   x:=1;
   while (x<(size-1)) and (c>f) do begin
      x:=x+1;
      c:=c-f;
   end;
   y:=x+1;

   c:=c/f;
   setrgbcolor(r[x]*(1.0-c)+r[y]*c, g[x]*(1.0-c)+g[y]*c, b[x]*(1.0-c)+b[y]*c);
end;

begin

   size:=6;
   r[1]:=1; g[1]:=0; b[1]:=0.25;
   r[2]:=1; g[2]:=0; b[2]:=0;
   r[3]:=1; g[3]:=1; b[3]:=0;
   r[4]:=1; g[4]:=1; b[4]:=0;
   r[5]:=0; g[5]:=0; b[5]:=1;
   r[6]:=0; g[6]:=0; b[6]:=0.2;

   f := 0;
   for x := 1 to 51 do begin
      i(f);
      writeln(f);
      f:=f+0.02;
   end;
   showpage();

end.