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.