Напишите программу в программе турбо паскаль "Колебания маятника". Если можно с объяснением.

Есть тут один код на примете{Программа СВОБОДНЫЕ КОЛЕБАНИЯ КРУГОВОГО МАТЕМАТИЧЕСКОГО МАЯТНИКА}Program Math_01;{Подключение модулей подпрограмм}Uses Crt, Graph;{Описание констант}Const phi0=30; // Начальный угол наклона маятника w0=0; // Начальная угловая скорость маятника l=400; // Длина нити r=8; // Радиус груза light=2; // Радиус блика k=0.02; // Коэффициент сопротивления m=1; // Масса груза xp=320; // Координата x точки подвеса yp=10; // Координата y точки подвеса g=9.8; // Ускорение свободного падения tau=0.4; // Шаг по времени{Описание переменных}Var x, y, xx, yy, w, eps, phi: Real;{Процедура инициализации графического режима 640x480}Procedure OpenGraph;Var Driver, Mode, ErrorCode: Integer;Begin Driver:=Detect; InitGraph(Driver, Mode, 'c:\bp\bgi'); ErrorCode:=GraphResult; If ErrorCode <> grOK Then Halt(1);End;{Процедура исключения мерцаний изображений}Procedure Glimmer;Begin Repeat Until Port[$3da] And 8 <> 0;End;{Процедура вывода изображения маятника на экран}Procedure Display;Begin Glimmer; SetColor(Black); SetFillStyle(SolidFill, Black); Line(xp, yp, Round(xx), Round(yy)); FillEllipse(Round(xx), Round(yy), r, r); SetLineStyle(SolidLn, 0, NormWidth); SetColor(DarkGray); Line(xp, yp, Round(x), Round(y)); SetLineStyle(SolidLn, 0, NormWidth); SetColor(DarkGray); SetFillStyle(SolidFill, DarkGray); FillEllipse(Round(x), Round(y), r, r); SetColor(LightGray); SetFillStyle(SolidFill, White); FillEllipse(Round(x)-3, Round(y)-3, light, light);End;{Основная часть программы}Begin OpenGraph; SetFillStyle(SolidFill, DarkGray); Bar(xp-20, yp-5, xp+20, yp-1); phi:=phi0*Pi/180; w:=w0; x:=xp+l*sin(phi); y:=yp+l*cos(phi); Repeat Begin xx:=x; yy:=y; eps:=-k*w/m-g*sin(phi)/l; w:=w+eps*tau; phi:=phi+w*tau; x:=xp+l*sin(phi); y:=yp+l*cos(phi); Display; End; Until KeyPressed; CloseGraph;End.