Uses Crt,graph;
Const P1='Выберите действие';
var
D,m,:Integer;
   begin
     d:=detect; m:=detect;
     initgraph(d,m,'c:\bp\bgi');
     setbkcolor(9);
     setviewport(100,100,540,300,true);
     readln;
     bar(0,0,640,440);
     setcolor(1);
     settextstyle(3,0,4);
     outtextxy(150,10, p1);
     {writeln(); }
     readln;
 end.