Написать программку которая будет выводить на экран 50 концентрических квадратов с

Uses GraphABC;

begin
  Window.SetSize(600,600);
  var (x,y):=(WindowWidth div 2,WindowHeight div 2);
  for var i:=1 to 50 do
   begin
   setpencolor(RGB(random(255),random(255),random(255)));
   DrawRectangle(x-5*i,y+5*i,x+5*i,y-5*i);
   end
end.

Пример - в прилагаемом файле.