N прямоугольников по горизонтали

[Анюта01]

Вывести на экран n прямоугольников одинакового размера по горизонтали.

вот что есть

program lab3;
uses crt,graph;
var
i,x1,x2,y1,y2,n,d,m: integer;
begin
d:=detect;
initgraph(d,m,'');
Read(n);
repeat
for i:=1 to n do
ТУТ НУЖЕТ ЦИКЛ
Rectangle(x1,x2,y1,y2);
until keypressed;
Readln;
CloseGraph;
end.

в задаче не хватает только цикла помоему, если кто то может помочь, помогите пожалуйста

[evg_m]

for i:=1 to n do
ТУТ НУЖЕТ ЦИКЛ надо заменить на
ТУТ НУЖНО ИЗМЕНЯТЬ КООРДИНАТЫ x1,x2,y1,y2
Rectangle(x1,x2,y1,y2);
until keypressed;

[Анюта01]

спасибо конечно, но хотелось бы поподробнее. Готовый код программы рабочей можно

[evg_m]

Rectangle(x1,x2,y1,y2);//вывести прямоугольник в координатах (x1,x2,y1,y1)
чтобы вывести следующий прямоугольник надо изменить координаты
(по горизонтали значит меняем
x1:=x1+100; //или сколько надо
x2:=x2+100;

[Анюта01]

программа должна работать так:
вводим с клавиатуры число 5 например, и на экране должны появится 5 прямоугольников одинакового размера по горизонтали.

как должен дальше выглядить код?
код:
program lab3;
uses crt,graph;
var
i,x1,x2,y1,y2,n,d,m: integer;
begin
d:=detect;
initgraph(d,m,'');
Read(n);
repeat
for i:=1 to n do

[paskal]

держи Анюта, вроде не сложно, но немного пришлось подумать
program lab3;
uses crt,graph;
var i,x1,x2,y1,y2,d,m,k,n: integer;
c:real;
begin
clrscr;
writeln('Vvedite chislo praimoygolnikov');
readln(n);
c:=640/(n+(n+1));{dlina praimoygolnika i rastainie mejdy nimi}
k:=round(c);
x1:=k; {nachalnii koordinati}
x2:=2*k;
d:=detect;
initgraph(d,m,'C:\tp\bgi');
for i:=1 to n do
begin
rectangle(x1,150,x2,200);
x1:=x2+k;
x2:=x2+k+k;
if i=n-1 then x2:=x2-1;
end;
readln;
closegraph;
end.