Не могу сделать цикл

[Verax1]

Нужно нарисовать 4 одинаковых квадрата испульзуя цикл(ну типо задал один квадрат, а цикл передвигает его по оси X. Я вот начал делать но что-то не прет. допустим чтобы сдвигались на 20 по оси X не отклоняясь от Y. Помогите если можете

PHP код:

 For i=1 to m do
 begin
  pen.color:=clblack;
 brush.color:=rgb(85,190,250);
 Rectangle(x+l*70,y-l*50,x+l*90,y-l*70);
 MoveTo(//я понимаю что тут надо что-то дописать, а что незнаю

 end; 


[Hacker19_90]

и зачем moveto?
смотрите вы рисуете квадрат процедурой
procedure Rectangle(Xl, Yl, X2, Y2: Integer);
что бы сдвинуть его по оси х на сколько-то надо к параметрам x добавить смещение
примерно по такому принципу

dx := 20;
x1 := 1;
x2 := 15;
for i := 1 to _сколько_раз_рисовать_ do 
begin
  rectangle (x1, 1, x2, 15);
  x1 := x1 + dx;
  x2 := x2 + dx;
end;

как то так