Написать программу которая будет выводить на экран 50 концентрических квадратов с центром в середине экрана (по размеру в смысле 1,2,3 и до 50) в pascalABC.net

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);   endend.Пример - в прилагаемом файле.