Помогите пожалуйста у=корень из 10-cosПх,х€[-1;1],h=0.1

В PascalABC.Net var   x:real; begin   Writeln('  x      y');   x:=-1;   while x<=1 do   begin Writeln(x:4:1,10-cos(Pi*x):10:5); x:=x+0.1 end end. Результат выполнения программы:   x      y -1.0  11.00000 -0.9  10.95106 -0.8  10.80902 -0.7  10.58779 -0.6  10.30902 -0.5  10.00000 -0.4   9.69098 -0.3   9.41221 -0.2   9.19098 -0.1   9.04894  0.0   9.00000  0.1   9.04894  0.2   9.19098  0.3   9.41221  0.4   9.69098  0.5  10.00000  0.6  10.30902  0.7  10.58779  0.8  10.80902  0.9  10.95106  1.0  11.00000 Замечание: В PascalABC константа Pi предопределена. В других версиях, если транслятор напишет сообщение о том, что переменная Pi не описана, в начале программы добавьте const Pi=3.14159265;