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.