Помогите пожалуйста написать код программы на языке паскаль, учитывая некоторые методические требования

//Pascal ABC.NET v3.1 сборка 1172Var i:integer; y,x:real;begin x:=-pi; writeln('i  x    y'); for i:=1 to 17 do  begin   if ((1/(x-2*pi)-sin(x))>0) then    begin     y:=1/(x-2*pi)-sin(x);     writeln(i,' ',x:0:2,' ',y:0:2);    end    else     writeln('При x=',x:0:2,' y<=0');   x:=x+pi/8;  end;end.