asd / корзина / лекции по TP / Lecture_Pascal / graph / FIRST

program Rectan_Circle_Line;
     uses       Graph,Crt;
     var GraphDriver,GraphMode:integer;
         x0,y0:integer;
     const  path='c:\tp70\bgi';
    begin
     GraphDriver:=detect;
     InitGraph(GraphDriver,GraphMode,path);
     if GraphResult <> GrOk then begin
                               writeln('GRAPHICESKIY REZIM NE USTANOVLEN ');
                               Halt
                                   end;
        SetBkColor(7);
        SetColor(1);
        x0:= GetMaxX div 2;
        y0:= GetMaxY div 2;
        Rectangle(x0-200,y0-100,x0+200,y0+100);
        SetColor(Red);
        Circle(x0,y0,150);
        SetColor(Magenta);
        SetTextStyle(GothicFont,HorizDir,3);
    OutTextXY(x0-100,y0-10,'Das ist Fantactich');
        SetColor(Cyan);
        SetLineStyle(DottedLn,0,ThickWidth);
        Line(x0-200,y0+100,x0+200,y0-100);
        readln;
        CloseGraph
        end.