program kell2;
uses dos, crt, graph;
 var h, m, s, sajandik, tund, minut, sekund: word;
 keskusx, keskusy: integer;
{$I graafika.pas}

procedure kell;
var hx, hy, mx, my, sx, sy: integer;
nurks, nurkm, nurkt: real;
aeg,at, am, as: string;

 procedure arvuta;
 begin
    nurks:=-(sekund*2*Pi/60);
    nurkm:=-(minut*2*Pi/60);
    nurkt:=-((tund+minut/60)*2*Pi/12);
    sx:=round(keskusx-130*sin(nurks));
    sy:=round(keskusy-130*cos(nurks));
    mx:=round(keskusx-100*sin(nurkm));
    my:=round(keskusy-100*cos(nurkm));
    hx:=round(keskusx-80*sin(nurkt));
    hy:=round(keskusy-80*cos(nurkt));
 end;

 procedure kustuta;
 begin
    setcolor(black);
    line(keskusx, keskusy, sx, sy);
    line(keskusx, keskusy, mx, my);
    line(keskusx, keskusy, hx, hy);
    str(tund:2, at);
    str(minut:2, am);
    str(sekund:2, as);
    aeg:=at+':'+am+':'+as;
    outtextxy(500, 400, aeg);
 end;



 procedure joonista;
 begin
  setcolor(yellow);
  line(keskusx, keskusy, sx, sy);
  setcolor(white);
  line(keskusx, keskusy, mx, my);
  line(keskusx, keskusy, hx, hy);

  str(tund:2, at);
  str(minut:2, am);
  str(sekund:2, as);
  aeg:=at+':'+am+':'+as;
  outtextxy(500, 400, aeg);
 end;

begin
 gettime(h, m, s, sajandik);
 if not (s=sekund) then
 begin
  arvuta;
  kustuta;
  sekund:=s;
  minut:=m;
  tund:=h;
  arvuta;
  joonista;
 end;
end;


begin

 keskusx:=300; keskusy:=200;
 kaivitagraafika;
 circle(300, 200, 150);
 repeat kell until keypressed;
 closegraph;
end.