(Pascal ABC) Помогите пожалуйста срочно!!! Нарисовать пять квадратов, расположенных друг...

Question

(Pascal ABC) Помогите пожалуйста срочно!!! Нарисовать пять квадратов, расположенных друг относительно друга по диагонали так, чтобы правая нижняя вершина предыдущего квадрата совпадала с левой верхней вершиной последующего.

Answer 1

Uses GraphABC;

begin
  Window.SetSize(500,500);
  var (x,y):=(50,50);
  setpenwidth(3);
  for var i:=1 to 5 do
   begin
   setpencolor(RGB(random(255),random(255),random(255)));
   x:=x+50; y:=y+50;
   Rectangle(x,y,x+50,y+50);
   end
end.

---