Графика. Цвет часовых стрелок

uses crt, GraphABC;
var x0,y0, x,y,  R, min, sec,chas: integer;
 
begin
  lockdrawing;                  //Блокирует рисование на графическом окне
  SetWindowSize(500,500);       //задает размер экрана
  HideCursor;                   //скрывает курсор (курсор есть потому, что используется библиотека crt, а библиотека crt используется потому, что действие продолжается до нажатия клавиши (keypressed))
  x0:=250; y0:=250; min:=0; sec:=0;  //начальные значения центра часов
  repeat                             //цикл с постусловием
    ClearWindow;                     //очистить окно
    SetPenWidth(5);                  //задать толщину пера 5
    circle(250,250,170);             //круг
    setfontsize(20);                 //параметры шрифта: размер
    setfontcolor(clblack);           //параметры шрифта: цвет
    textout(235,90,'12');            //вывод текста
    textout(243,380,'6');
    textout(385,240,'3');
    textout(105,240,'9');
    sec:=sec+1; min:= sec div 60;chas:=min div 60;  //увеличиваем секунды на 1, минуты - после каждой 60-й секунды, часы - после каждой 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);             //рисование минутной стрелки
    x:=x0+Round(60*sin(Pi*chas/30));                //координаты конечной точки часовой стрелки
    y:=y0-Round(60*cos(Pi*chas/30));
    SetPenWidth(10); Line(x0, y0, x, y);            //рисование часовой стрелки
    sleep(1000);                                    //задержка
    Redraw;                                         //перерисовка
  until keyPressed;                                 //пока не будет нажата любая клавиша (обозначаем условие для цикла с постусловием)
end.

uses crt, GraphABC;
var x0,y0, x,y,  R, min, sec,chas: integer;
 
begin
  lockdrawing;                  //Áëîêèðóåò ðèñîâàíèå íà ãðàôè÷åñêîì îêíå
  SetWindowSize(500,500);       //çàäàåò ðàçìåð ýêðàíà
  HideCursor;                   //ñêðûâàåò êóðñîð (êóðñîð åñòü ïîòîìó, ÷òî èñïîëüçóåòñÿ áèáëèîòåêà crt, à áèáëèîòåêà crt èñïîëüçóåòñÿ ïîòîìó, ÷òî äåéñòâèå ïðîäîëæàåòñÿ äî íàæàòèÿ êëàâèøè (keypressed))
  x0:=250; y0:=250; min:=0; sec:=0;  //íà÷àëüíûå çíà÷åíèÿ öåíòðà ÷àñîâ
  repeat                             //öèêë ñ ïîñòóñëîâèåì
    ClearWindow;                     //î÷èñòèòü îêíî
    SetPenWidth(5);                  //çàäàòü òîëùèíó ïåðà 5
    SetPencolor(clBlack);
    circle(250,250,170);             //êðóã
    setfontsize(20);                 //ïàðàìåòðû øðèôòà: ðàçìåð
    setfontcolor(clblack);           //ïàðàìåòðû øðèôòà: öâåò
    textout(235,90,'12');            //âûâîä òåêñòà
    textout(243,380,'6');
    textout(385,240,'3');
    textout(105,240,'9');
    sec:=sec+1; min:= sec div 60;chas:=min div 60;  //óâåëè÷èâàåì ñåêóíäû íà 1, ìèíóòû - ïîñëå êàæäîé 60-é ñåêóíäû, ÷àñû - ïîñëå êàæäîé 60é ìèíóòû
    x:=x0+Round(120*sin(Pi*sec/30));                //êîîðäèíàòû êîíå÷íîé òî÷êè ñåêóíäíîé ñòðåëêè
    y:=y0-Round(120*cos(Pi*sec/30));
    SetPencolor(clGreen);
    SetPenWidth(3); Line(x0, y0, x, y);             //ðèñîâàíèå ñåêóíäíîé ñòðåëêè
    x:=x0+Round(100*sin(Pi*min/30));                //êîîðäèíàòû êîíå÷íîé òî÷êè ìèíóòíîé ñòðåëêè
    y:=y0-Round(100*cos(Pi*min/30));
    SetPencolor(clRed);
    SetPenWidth(7); Line(x0, y0, x, y);             //ðèñîâàíèå ìèíóòíîé ñòðåëêè
    x:=x0+Round(60*sin(Pi*chas/30));                //êîîðäèíàòû êîíå÷íîé òî÷êè ÷àñîâîé ñòðåëêè
    y:=y0-Round(60*cos(Pi*chas/30));
    SetPencolor(clYellow);
    SetPenWidth(10); Line(x0, y0, x, y);            //ðèñîâàíèå ÷àñîâîé ñòðåëêè
    sleep(1000);                                    //çàäåðæêà
    Redraw;                                         //ïåðåðèñîâêà
  until keyPressed;                                 //ïîêà íå áóäåò íàæàòà ëþáàÿ êëàâèøà (îáîçíà÷àåì óñëîâèå äëÿ öèêëà ñ ïîñòóñëîâèåì)
end.

program abc;
uses graphABC;
begin
SetWindowSize(900,900);
line(400,1,880,1);
line(880,1,880,480);
line(880,480,400,480);
line(400,480,400,1);
line(400,240,880,240);
line(640,1,640,480);
end.