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

Program Timer;
uses graph,crt;
var
   d,r,r1,r2,rr,k,x1,x2,y1,y2,x01,y01,e:integer;
   Xasp,Yasp:word;
begin
clrscr;
  d:=detect;
  InitGraph(d,r,'');
  k:=GraphResult;
      If k<>grok then writeln(GraphErrorMSG(k)) else
      begin
      x1:=GetMaxX div 2;
      y1:=GetMaxY div 2;
      GetAspectRatio(Xasp,Yasp);
         r:=round(2*GetMaxY*Yasp/8/Xasp);
         r1:=round(0.7*r);
         r2:=round(0.75*r);
            Circle(x1,y1,r);
            Circle(x1,y1,round(1.02*r));
            Circle(x1,y1,5);
            Circle(x1,y1,200);
            Line(0,100,160,100);
              setbkcolor(red);
             For k:=0 to 59 do
                begin
                 If k mod 5=0 then rr:=r1+15 else rr:=r2+15;
                    x01:=x1+Round(rr*sin(2*pi*k/60));
                    y01:=y1-Round(rr*Xasp*cos(2*pi*k/60)/Yasp);
                    x2:=x1+Round(r*sin(2*pi*k/60));
                    y2:=y1-Round(r*Xasp*cos(2*pi*k/60)/Yasp);
                    line(x01,y01,x2,y2)
                end;
        SetWriteMode(XORPut);
        SetLineStyle(SolidLn,0,ThickWidth);
        r:=0;
           repeat
                 for k:=0 to 59 do
                  if not KeyPressed then
                    begin
                      x2:=x1+Round(0.85*r1*sin(2*pi*r/60/12));
                      y2:=y1-Round(0.85*r1*Xasp*cos(2*pi*r/60/12)/Yasp);
                      x01:=x1+Round(r2*sin(2*pi*k/60));
                      y01:=y1-Round(r2*Xasp*cos(2*pi*k/60)/Yasp);
                      line(x1,y1,x2,y2);
                      line(x1,y1,x01,y01);
                      Delay(1000);
                      line(x1,y1,x01,y01);
                      line(x1,y1,x2,y2);
                         inc(r);
                          If r=12*60 then r:=0
                     end
        until KeyPressed;
         If ReadKey=#0 then k:=ord(ReadKey);
         CloseGraph
      end;
      end.