Ребят можете с заданием только недавно начал изучать паскаль вообще без понятий как делать

program zadanie_5;
uses graph, crt;
var
GraphDriver,
GraphMode,
ErrorCode,
X0,
Y0
: Integer;
Begin
0 GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, '..\bp\bgi');
ErrorCode := GraphResult;
if ErrorCode <> grOk
then
begin
WriteLn('Graphics error:', GraphErrorMsg(ErrorCode));
Exit;
end;
X0 := GetMaxX div 2;
Y0 := GetMaxY div 2;
SetColor(White);
Bar(0, 0, GetMaxX, GetMaxY);
SetColor(black);
Line(X0, 50, X0, GetMaxY - 50);
Line(50, Y0, GetMaxX - 50, Y0);
Rectangle(X0 + 80, Y0 - 80, X0 + 200, Y0 - 200);
Rectangle(X0 + 105, Y0 - 105, X0 + 175, Y0 - 175);
Setfillstyle(1,black);
Floodfill(450,125,black);
OutTextXY(50, 400, 'Нажмите Enter для продолжения');
ReadKey;
Rectangle(X0 + 80, Y0 + 80, X0 + 200, Y0 + 200);
Rectangle(X0 + 105, Y0 + 105, X0+175,Y0+175);
SetFillStyle(1, Black);
FloodFill(450, 415, Black);
ReadKey;
CloseGraph;
End.

program zadanie_5;
uses graphABC, crt;
var
GraphDriver,
GraphMode,
ErrorCode,
X0,
Y0
: Integer;
Begin
0 GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, '..\bp\bgi');
ErrorCode := GraphResult;
if ErrorCode <> grOk
then
begin
WriteLn('Graphics error:', GraphErrorMsg(ErrorCode));
Exit;
end;
X0 := GetMaxX div 2;
Y0 := GetMaxY div 2;
SetColor(White);
Bar(0, 0, GetMaxX, GetMaxY);
SetColor(black);
Line(X0, 50, X0, GetMaxY - 50);
Line(50, Y0, GetMaxX - 50, Y0);
Rectangle(X0 + 80, Y0 - 80, X0 + 200, Y0 - 200);
Rectangle(X0 + 105, Y0 - 105, X0 + 175, Y0 - 175);
Setfillstyle(1,black);
Floodfill(450,125,black);
OutTextXY(50, 400, 'Нажмите Enter для продолжения');
ReadKey;
Rectangle(X0 + 80, Y0 + 80, X0 + 200, Y0 + 200);
Rectangle(X0 + 105, Y0 + 105, X0+175,Y0+175);
SetFillStyle(1, Black);
FloodFill(450, 415, Black);
ReadKey;
CloseGraph;
End.