Program Pascal_Grafik_2d;
Uses
    Crt, Graph;
var
    Gd, Gm : integer;

Procedure Bidang_Gambar;
begin
    SetColor (White);
    Rectangle (0, 0, GetMaxX, GetMaxY);
    SetFillStyle (SolidFill, LightBlue);
    FloodFill (GetMaxX div 2, GetMaxY div 2, White);
end;

begin
    Gd := Detect;
    InitGraph (Gd, Gm, '');

    Bidang_Gambar;

    Repeat Until ReadKey =#27;
    CloseGraph;
end.	