механические часы

[dimok5]

Помогите пожалуйста составить программы, которая рисует механические часы на языке паскальABC. Нужно использовать процедуру delay.

[Naive]

repeat
cleardevice;
x:=200+sin(time)*100;
y:=200+cos(time)*100;
line(200,200,x,y);
time:=time+0.01;
delay(1000);
until keypressed;

[Serge_Bliznykov]

помогите предполагает, что Вы что-то пытались делать и у Вас не получилось...
А так это называется - сделайте за меня..

ладно. Чисто по приколу переделал исходник, взятый, если не ошибаюсь, отсюда

program clock;
uses CRT, graphABC, Utils;
var x1,y1,xh,yh,xm,ym,xc,yc,gd,gm,X,Y,i,a:integer;
    n:array[0..12] of string;
    curTime : DateTime;
    s:string;
    
procedure ShowCurArrows(ShowColor : ColorType);
begin
  SetPenColor( ShowColor );
  xc:=round(X-180*cos(pi/180*(90+6*CurTime.Second)));
  yc:=round(Y-180*sin(pi/180*(90+6*CurTime.Second)));
  line(x,y,xc,yc);
  xm:=round(X-155*cos(pi/180*(90+6*CurTime.Minute)));
  ym:=round(Y-155*sin(pi/180*(90+6*CurTime.Minute)));
  line(x,y,xm,ym);
  xh:=round(X-115*cos(pi/180*(90+6*((CurTime.Hour mod 12)*5+ CurTime.Minute div 12))));
  yh:=round(Y-115*sin(pi/180*(90+6*((CurTime.Hour mod 12)*5+ CurTime.Minute div 12))));
  line(x,y,xh,yh);
end;

begin
n[1]:=' I'; n[2]:=' II'; n[3]:='III';
n[4]:='IV'; n[5]:='V'; n[6]:='VI';
n[7]:='VII'; n[8]:='VIII'; n[9]:='IX';
n[10]:='X'; n[11]:='XI'; n[12]:='XII';
X:=WindowWidth div 2;
Y:=WindowHeight div 2;
circle(X,Y,235);
a:=270;
for i:=1 to 60 do
  begin
   x1:=round(X-205*cos(pi/180*a));
   y1:=round(Y+205*sin(pi/180*a));
   a:=a+6;
   if (a-6) mod 30=0 then TextOut(x1-16,y1-18,n[12-(i div 5)])
   else
    begin
      circle(x1,y1,2);
    end;
  end;
  xh:=X; yh:=Y;
  xm:=X; ym:=Y;
  xc:=X; yc:=Y;
  circle(X,Y,3);
  circle(X,Y,6);
  circle(X,Y,9);
repeat
  CurTime := CurrentDateTime;
  ShowCurArrows( clBlack);

  delay(1000);
  
  ShowCurArrows( clWhite );
until keypressed;
end.