быть может поможете еще с одной задачкой=)

[Julia-21]

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

[Julia-21]

кто-нить ау

[puporev]

Держите.

uses crt,graph;
var x0,y0,a,n:integer;{центр квадрата и его сторона, количество квадратов}
    x1,y1,x2,y2:integer;{самый болшой квадрат}
    x3,y3,x4,y4:integer;{переменные координаты вписанных квадратов}
    r,d:integer;{расстояние от центра квадратов до ближайшего края, шаг уменьшения квадратов}
    i,gd,gm:integer;{счетчик циклов и переменные для инициализации графического режима}
begin
clrscr;
repeat
write('x0=');readln(x0);
write('y0=');readln(y0);
write('a=');readln(a);
until (x0>0)and(x0<640)and(y0>0)and(y0<480)and(a>0)and(a<480);
write('N=');readln(n);
gd:=detect;
InitGraph(gd,gm,'');{графический режим}
r:=y0; {ищем расстояние до ближайшего края}
if getmaxY-y0<r then r:=getmaxY-y0;
if x0<r then r:=x0;
if getmaxX-x0<r then r:=getmaxX-x0;
x1:=x0-r;y1:=y0-r;x2:=x0+r;y2:=y0+r;{определяем координаты самого большого квадрата}
d:=round((r-(a div 2))/(n-1));{шаг уменишения размеров квадратов}
for i:=n downto 1 do
  begin
     x3:=x1+d*(n-i);y3:=y1+d*(n-i);{считаем координаты каждого квадрата}
     x4:=x2-d*(n-i);y4:=y2-d*(n-i);
     SetFillStyle(i+1,i+1); {устанавливаем стиль(цвет и узор)}
     Bar(x3,y3,x4,y4);{рисуем заполненный квадрат}
  end;
readln;
closegraph;
end.