Программа будет работать неверно при х ∈ [π/2;2π]+2πk, где k ∈ {0,R}
Нужно условие
if x>=0 then
заменить на
if (x>=0) and (x<=pi) then<br>В системе программирования, отличной от PascalABC.NET (или Pascal ABC) следует предварительно определить константу или переменную pi