Вывести на экран значения функции y=sin(x) для 0

Замечание: считается, что x - значение, заданное в градусах.var x:integer;beginfor x:=0 to 180 div 10 do writeln(x*10:4,' ',sin(x*10*pi/180):6:4);end. Результат: 0 0.000010 0.173620 0.342030 0.500040 0.642850 0.766060 0.866070 0.939780 0.984890 1.0000100 0.9848110 0.9397120 0.8660130 0.7660140 0.6428150 0.5000160 0.3420170 0.1736180 -0.0000