program egademo;
uses crt,graph,schrift;
const
     Q1:array[1..5] of pointtype=((x:297;y:65),(x:443;y:152),(x:346;y:280),
                                  (x:200;y:192),(x:297;y:65));
     Q2:array[1..5] of pointtype=((x:370;y:72),(x:439;y:221),(x:270;y:275),
                                  (x:205;y:132),(x:370;y:72));
     Q3:array[1..5] of pointtype=((x:235;y:98),(x:405;y:98),(x:405;y:240),
                                  (x:235;y:240),(x:235;y:98));
var
     gt,gm:integer;
begin
    gt:=ega;gm:=egahi;
    directvideo:=false;
    initgraph(gt,gm,'');
    setbkcolor(blue);
    setcolor(black);setfillstyle(1,14);
    fillpoly(sizeof(Q1) div sizeof(pointtype),Q1);
    setfillstyle(1,2);
    fillpoly(sizeof(Q2) div sizeof(pointtype),Q2);
    setfillstyle(1,8);
    fillpoly(sizeof(Q3) div sizeof(pointtype),Q3);
    setcolor(15);
    circle(320,165,20);circle(320,165,25);circle(320,165,26);
    circle(320,190,3);arc(360,165,90,270,6);arc(385,165,270,90,6);
    line(360,160,385,160);line(360,170,385,170);
    setfillstyle(1,blue);
    floodfill(320,165,15);floodfill(320,190,15);floodfill(360,165,15);
    settextstyle(defaultfont,horizdir,3);
    setcolor(red);
    outtextxy(252,110,'D.E.R.');
    textcolor(lightgray);
    lauf_schrift(32,16,50,95,'  DISK-EDV-REPORT  Die Softwarezeit'
    +'schrift mit Diskette aus dem Verlag SIMON! ');
    closegraph;
end.
