Составте программу,которая запрашивает время в часах (0,3,6,9,12,15,18,21,24) и рисует часы с показаниями часовой стрелк

uses crt,graphABC;
var h,c,r1,r2,r3,i,x1,y1,x2,y2:integer;
    u:real;
begin
repeat
write('Введите время в часах, от 0 до 24 кратное 3 h=');
readln(h);
until (h in [0..24])and(h mod 3=0);
setwindowsize(400,400);
c:=200;
r1:=c-30;
r2:=r1-40;
r3:=r1+20;
centerwindow;
clrscr;
hidecursor;
circle(c,c,r1);
//u:=pi/2-pi/6;
for i:=1 to 12 do
 begin
  u:=-i*pi/6+pi/2;
  x1:=c+round(r1*cos(u));
  y1:=c-round(r1*sin(u));
  setbrushcolor(clBlack);
  setbrushstyle(bsSolid);
  circle(x1,y1,2);
  x2:=c+round(r3*cos(u));
  y2:=c-round(r3*sin(u));
  u:=u-pi/6 ;
  setbrushstyle(bsClear);
  textout(x2-3,y2-5,inttostr(i));
 end;
setpenwidth(3);
h:=h mod 24 mod 12;
u:=-h*pi/6+pi/2;
line(c,c,c+round(r2*cos(u)),c-round(r2*sin(u)));
end.

uses graphABC;
var h,c,r1,r2,r3,x1,y1,x2,y2:integer;
    u:real;
begin
repeat
write('Введите время в часах, от 0 до 24 кратное 3 h=');
readln(h);
until (h in [0..24])and(h mod 3=0);
setwindowsize(400,400);
c:=200;
r1:=c-30;
r2:=r1-40;
r3:=r1+20;
centerwindow;
clearwindow;
circle(c,c,r1);
for var i:=1 to 12 do
 begin
  u:=-i*pi/6+pi/2;
  x1:=c+round(r1*cos(u));
  y1:=c-round(r1*sin(u));
  setbrushcolor(clBlack);
  setbrushstyle(bsSolid);
  circle(x1,y1,2);
  x2:=c+round(r3*cos(u));
  y2:=c-round(r3*sin(u));
  u:=u-pi/6 ;
  setbrushstyle(bsClear);
  textout(x2-3,y2-5,inttostr(i));
 end;
setpenwidth(3);
h:=h mod 24 mod 12;
u:=-h*pi/6+pi/2;
line(c,c,c+round(r2*cos(u)),c-round(r2*sin(u)));
end.