Program Timer;

uses crt, GraphABC;

var pic, x0,y0, x,y,  R, min, sec : integer;

begin

  SetWindowSize(360,480);

   HideCursor

  x0:=173; y0:=300; min:=0; sec:=0;                                 

  pic:=LoadPicture('timer.jpg');

 repeat

    DrawPicture(pic,0,0,360,480);                      // 

    sec:=sec+1;

     min:= sec div 60;                                 // 

    x:=x0+Round(120*sin(Pi*sec/30));

    y:=y0-Round(120*cos(Pi*sec/30));

    SetPenWidth(3);

    Line(x0, y0, x, y);                                // 

    x:=x0+Round(100*sin(Pi*min/30));

    y:=y0-Round(100*cos(Pi*min/30));

    SetPenWidth(7);

    Line(x0, y0, x, y);                               // 

    sleep(1000);

  until (min>=60) or keyPressed;

end.