паскаль, графика

[ihimaru]

Сначала условие === По заданным значениям координат точки пересечения диагоналей прямоуголь-
ника, длин его сторон А и В, числа N построить N вложенных друг в друга подобных
прямоугольников так, чтобы самый внутренний имел стороны А и В, а самый внешний
помещался в экран. Пространство между границами прямоугольников закрасить разными
цветами.


у меня 2 варианта решения вот первый

program pr;
  uses crt,graph;
     var grdriver,grmode,i,n,x,y,x1,y1,c:integer;
     r:word;
    begin

     writeln('введите х ');readln(x);
      writeln('введите y');readln(y);
       writeln('введите x1 ');readln(x1);
         writeln('введите y1 ');readln(y1);
          writeln('введите');readln(n);
     grdriver:=detect;
     initgraph(grdriver, grmode,'c:\sPascal\BGI');




   for i:=1 to n do begin
   x:=x-30;
   y:=y-30;
   x1:=x1+30;
   y1:=y1+30;
     rectangle(x,y,x1,y1);
         setlinestyle(0,0,3);


   setfillstyle(1,c);
   n:=n-1;
   c:=c+1;


   setcolor(n);

   end;
   readln;

end.

тут либо получается N фигур , просто с линиями разных цветов , закрасить черные промежутки пытался setfillstyle , но потом вычитал что это процедура тут вроде как не работает.

потом заменил rectangle(x,y,x1,y1); на bar(x,y,x1,y1);
но тут возникла проблема наложения фигур друг на друга , пытался сделать что бы сначала рисовал большой квадрат и потом меньше и меньше N раз...но видимо что то с координатами я напутал.
Вообще подскажите пожалуйста кому не трудно как исправить.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ihimaru]

Спасибо за доходчивый ответ !!!! сам бы я никогда не справился!!! обожаю этот сайт!! всегда помогут если что то не понятно))