01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Рейтинг на модуль GRAPH

Program reyting;
uses crt,graph;
var
   grdriver,grmode:integer;
   x0,x1,y0,y1,r,dx,dy:integer;
   begin
     r:=15;
     grdriver:=detect;
     initgraph(grdriver,grmode,'d:\tp7.0\bgi\');
     If graphresult <> 0 then begin
     writeln('ЋиЁЎЄ  Ё­ЁжЁ «Ё§ жЁЁ Ја дЁЄЁ');
     halt(1);
     end;
      x0:=getmaxx;
      y0:=getmaxy;
      x1:=getmaxx div 2;
      y1:=getmaxy div 2;
      setbkcolor(red);
       dx:=0;
       dy:=0;
 repeat
      ClearDevice;
      setcolor(white);
      setlinestyle(1,1,1);
       line(x1,0,x1,y0);
       line(0,y1,x0,y1);
      setfillstyle(1,lightblue);
      pieslice(x1+dx,y1-dy,0,90,r*5);
      setfillstyle(1,green);
      pieslice(x1-dx,y1-dy,90,180,r*5);
      setfillstyle(1,lightblue);
      pieslice(x1-dx,y1+dy,180,270,r*5);
      setfillstyle(1,green);
      pieslice(x1+dx,y1+dy,270,360,r*5);
      dx:=dx+1;
      dy:=dy+1;
 until keypressed;
      readln;
     closegraph;
end.