uses
 graph, crt, mouse;
 var
 cd,cg:integer;





  begin


      cd:=detect;

      cg:=0;
      initgraph(cd,cg, 'D:\BP\BGI');
      initmouse;

      GotoMouseXY(200,400);
            showmouse;


      setfillstyle(1,0);
      bar(0,0,639,479);
      showmouse;
      setbkcolor(darkgray);
      settextstyle(2, 0, 8);
      outtextxy(205, 30, 'Добавление вопросов');

      {Выбор сложности вопросов}
      {1}
      setfillstyle(1,9);
      rectangle(259,69, 401, 121);
      bar(260,70,400,120);
      setfillstyle(1,0);
      settextstyle(2,0,5);
      outtextxy(275, 71, 'Cложность 1,2,3');
      rectangle(269,86,391,109);
      bar(270,87,390,108);




      readkey;

      {Закрашивание предыдущего прямоугольника}
      bar(255,65,405,125);

      {Поле ввода вопроса}
      setfillstyle(1,9);
      rectangle(49,69,591,121);
      bar(50, 70, 590, 120);
      settextstyle(2,0,5);
      outtextxy(280, 71, 'Вопрос');
      setfillstyle(1,0);
      rectangle(69,84,571,106);
      bar(70,85,570,105);

      readkey;


      {Вывод по нажатию на любую клавишу прямоугольника для правильного ответа}
      setfillstyle(1,9);
      rectangle(49,129, 291, 176);
      bar(50,130,290,175);
      setfillstyle(1,0);
      settextstyle(2,0,5);
      outtextxy(120, 131, 'Правильный ответ');
      rectangle(59,145,281,164);
      bar(60,146,280,163);
      readkey;

      {Вывод прямоугольников для остальных ответов}
      {2}
      setfillstyle(1,9);
      rectangle(349,129, 591, 176);
      bar(350,130,590,175);
      setfillstyle(1,0);
      settextstyle(2,0,5);
      outtextxy(440, 131, '2 Ответ');
      rectangle(359,145,581,164);
      bar(360,146,580,163);
      readkey;

      {3}
      setfillstyle(1,9);
      rectangle(49,194, 291, 241);
      bar(50,195,290,240);
      setfillstyle(1,0);
      settextstyle(2,0,5);
      outtextxy(140, 196, '3 Ответ');
      rectangle(59,210,281,229);
      bar(60,211,280,228);
      readkey;

      {4}
      setfillstyle(1,9);
      rectangle(349,194, 591, 241);
      bar(350,195,590,240);
      setfillstyle(1,0);
      settextstyle(2,0,5);
      outtextxy(440, 196, '4 Ответ');
      rectangle(359,210,581,229);
      bar(360,211,580,228);
      readkey;


      end.