Нужна ) по информатике учитель сказал сделать циферблат часов паскаль) напиши подробно всю программу как делать

Попробуй так uses graph, crt;     var             d,r,r1,r2,rr,k,             x1,y1,x2,y2,x01,y01: integer;             xasp,yasp : word; begin   {инициируем графику}         d : = detect;         initgraph(d, r, ' ') ;         k: = graphresult;         if k < > grok then  writeln(grapherrormsg(k))   else begin {определяем отношение сторон и размеры экрана} x1 : = getmaxx div 2; y1 : = getmaxy div 2; getaspectratio(xasp, yasp); {вычисляем радиусы: }   r: = round(3*getmaxy*yasp/8/xasp);   r1 : = round(0.9*r); {часовые деления}   r2 : = round(0.95*r); {минутные деления} {изображаем циферблат}   circle(x1,y1,r); {первая внешняя окружность}   circle(x1,y1,round(1.02*r)); {вторая окружность}     for k : = 0 to 59 do {деления циферблата}       begin             if k mod 5=0 then                     rr : = r1 {часовые деления}           else                     rr: = r2 ; {минутные деления} {определяем координаты концов делений}   x01 : = x1+round(rr*sin(2*pi*k/60));   y01 : = y1-round(rr*xasp*cos(2*pi*k/60)/yasp);   x2 : = x1+round(r*sin(2*pi*k/60));   y2 : = y1-round(r*xasp*cos(2*pi*k/60)/yasp);   line(x01,y01,x2,y2) {выводим деление} end; {готовим вывод стрелок}   setwritemode(xorput);   setlinestyle(solidln,0,thickwidth);   r : = 0; {счетчик минут в одном часе} {цикл вывода стрелок}   repeat     for k : = 0 to 59 do {k = минуты}           if not keypressed then                 begin                               {координаты часовой стрелки}                               x2 : = x1+round(0.85*r1*sin(2*pi*r/60/12));                               y2 : = y1-round(0.85*r1*xasp*cos(2*pi*r/60/12)/yasp);                               {координаты минутной стрелки}                               x01: = x1+round(r2*sin(2*pi*k/60));                               y01: = y1-round(r2*xasp*cos(2*pi*k/60)/yasp);                               {изображаем стрелки}                                 line(x1,y1,x2,y2);                                 line(x1,y1,x01,y01);                                 delay(100); {для имитации реального темпа                                                                           нужно установить задержку 60000}                                                                         {для удаления стрелок выводим их еще раз! }                                 line(x1,y1,x01,y01);                                 line (x1,y1,x01,y01 ) ; {наращиваем и корректируем счетчик минут в часе} inc(r); if r=12*60  then   r : = 0 end until keypressed; if readkey=#0 then k: =ord(readkey); closegraph; end end.

Var m: array[1..15] of integer;           i, count: integer; begin        for i : = 1 to 15 do begin              m[i] : = random(15);               write(m[i]: 3);               if(m[i] mod 2 = 0) then inc(count);         end;         writeln(#10, 'кол-во четных элементов: ', count); end.

  18: 3=6 рожков                                                                                                                         6-5=1 рожок остался на столе                                                                                               18-3=15 стаканчиков осталось на столе