Составить программу закрашивания прямоугольника размером 6x4

//PascalABC.NETuses GraphABC;begin//Высота = 4, ширина = 6, шаг = 50pxRectangle(50, 50, 350, 250);FloodFill(110, 110, clTeal);end.//Вариант №2 с разметкойuses GraphABC;var tmp, i: integer;begin//Высота = 4, ширина = 6, шаг = 50pxRectangle(50, 50, 350, 250);FloodFill(110, 110, clTeal);tmp := 50;for i := 1 to 3 dobegin  Line(50, 50+tmp, 350, 50+tmp);  tmp := tmp + 50;end;tmp := 50;for i := 1 to 5 dobegin  Line(50+tmp, 50, 50+tmp, 250);  tmp := tmp + 50;end;end.