Можно, например, программа -"Часы"
program zd;
uses crt,graphABC;
var xc,yc,x1,y1,x2,y2,r1,r2:integer;
k:integer;
a1,a2:real;
begin
hidecursor;
SetWindowSize(400,400);
xc:=windowwidth div 2;
yc:=windowheight div 2;
r1:=100; r2:=80;
TextOut(xc-80,15,'завершение любая клавиша');
Setpencolor(clBlue);
SetPenWidth(5);
circle(xc,yc,r1+20);
SetFontSize(12);
SetFontColor(clBlack);
TextOut(xc-10,yc-r1-15,'12');
TextOut(xc-5,yc+r1-3,'6');
TextOut(xc+r1+3,yc,'3');
TextOut(xc-r1-10,yc,'9');
a1:=0;a2:=0;
repeatx1:=xc+round(r1*sin(Pi*a1/180));
y1:=yc-round(r1*cos(Pi*a1/180));
SetPenColor(clBlack);
Line(xc,yc,x1,y1);
x2:=xc+round(r2*sin(Pi*a2/180));
y2:=yc-round(r2*cos(Pi*a2/180));
SetPenColor(clRed);
Line(xc,yc,x2,y2);
sleep(1000);
SetPenColor(clWhite);
Line(xc,yc,x1,y1);
SetPenColor(clWhite);
Line(xc,yc,x2,y2);
a1:=a1+12;a2:=a2+1;
Until keypressed;
SetPenColor(clBlack);
Line(xc,yc,x1,y1);
SetPenColor(clRed);
Line(xc,yc,x2,y2);
end.
результат работы прикреплен:
