uses crt,graph; var d,r:integer; Procedure Fon; {Заполнение фона "в сеточку"} Begin ClearDevice; SetFillStyle (CloseDotFill, LightBlue); Bar (1,1,638,478); SetColor(White); Rectangle(2,2,637,477); End; begin initGraph(d,r,''); SetBkColor(LIGHTGRAY); Fon; readkey; closegraph; end.