Паскаль,нужно закрасить фигру

[Vladislav125]

Код программы

Program Primer;
uses graphABC;
Var x,y:integer;
Begin
maximizewindow;
//Вертикальные линии
x:=50;
repeat
line(x,50,x,800);
x:=x+50
until x>850;
//Горизонтальные линии
y:=50;
repeat
line(50,y,850,y);
y:=y+50;
until y>800;

//moveto(450,50);
//setpixel(450,450,clred);
setpenwidth(3);
line(50,450,850,450);
line(450,50,450,800);

setpenwidth(5);
line(600,100,250,100);
line(600,250,600,100);
line(400,250,600,250);
line(400,250,400,400);
line(250,400,400,400);
line(250,400,250,100);

setpenwidth(5);
TextOut(440,55,'y');
TextOut(840,460,'x');
TextOut(440,460,'0');
TextOut(440,430,'1');
TextOut(455,460,'1');
END.

Эту фигуру нужно закрасить

[SASFM]

Сообщение от Vladislav125

Код программы
Эту фигуру нужно закрасить

Может так?

program Primer;
uses graphABC;
var x, y: integer;
begin
  maximizewindow;
  setpenwidth(5);
  line(600, 100, 250, 100);
  line(600, 250, 600, 100);
  line(400, 250, 600, 250);
  line(400, 250, 400, 400);
  line(250, 400, 400, 400);
  line(250, 400, 250, 100);
  FloodFill(253, 153, clBlack);
  setpenwidth(1);
  //Вертикальные линии
  x := 50;
  repeat
    line(x, 50, x, 800);
    x := x + 50
  until x > 850;
  //Горизонтальные линии
  y := 50;
  repeat
    line(50, y, 850, y);
    y := y + 50;
  until y > 800;
  //moveto(450,50);
  //setpixel(450,450,clred);
  setpenwidth(3);
  line(50, 450, 850, 450);
  line(450, 50, 450, 800);
  setpenwidth(5);
  TextOut(440, 55, 'y');
  TextOut(840, 460, 'x');
  TextOut(440, 460, '0');
  TextOut(440, 430, '1');
  TextOut(455, 460, '1');
end.