PROGRAM LAB15;
USES CRT,GRAPH;
VAR DRIVER, MODE, DETECT:INTEGER;
BEGIN
CLRSCR;
   DRIVER:=DETECT;
   INITGRAPH (DRIVER, MODE, ' ');
   SETCOLOR(2);
   LINE(100,100,200,100);
   LINE(100,100,100,200);
   LINE(100,200,200,200); LINE(200,200,200,100);
   LINE(150,240,250,240); LINE(250,240,250,140);
   LINE(250,140,200,100); LINE(250,240,200,200);
   LINE(150,240,100,200);
   SETLINESTYLE(2,2,2);
   LINE(150,240,150,140); LINE(150,140,100,100);
   LINE(150,140,250,140); LINE(100,100,150,240);
   LINE(150,240,250,140); LINE(250,140,100,100);
   SETCOLOR(9);
   LINE(149,235,154,235); LINE(145,225,167,225);
   LINE(144,215,173,215); LINE(139,205,184,205);
   LINE(136,195,194,195); LINE(132,185,204,185);
   LINE(129,175,214,175); LINE(125,165,224,165);
   LINE(121,155,234,155); LINE(118,145,245,145);
   LINE(114,135,225,135); LINE(110,125,188,125);
   LINE(107,115,152,115);LINE(103,105,116,105);
   MOVETO (100,450);
   OUTTEXT('ВЫПОЛНИЛА:НУРГАЛИЕВА РЕЗЕДА');
READLN;
END.