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

[Gybert]

Программирование алгоритмов регулярной циклической структуры.
Методические требования к выполнению контрольного задания:
- При выполнении заданий решить задачу одного из следующих типов:
табуляция (получить таблицу значений функции y=f(x) при изменении х на
отрезке [a;b] с шагом h)или сумма или произведение (вычислить сумму или
произведение значений функции y=f(x), удовлетворяющих заданным
ограничениям, при изменении х на отрезке [a;b] с шагом h );
- Объявить в программе тип используемых переменных (целый или
вещественный) в соответствии с содержанием задачи. Использовать
вещественные переменные с одинарной точностью;
- Использовать в качестве параметра цикла переменную целого типа (счётчик
числа повторений цикла);
- Во всех вариантах заданий вывести значения аргумента и функции в виде
таблицы с заголовком столбцов.

Вот что я сделал

Var
 i,a:integer;
 y,x,c:real;
begin
 x:=-pi;
 c:=0;
   c:=((pi-(-pi))/(pi/8));
   a:=round (c);
 writeln('i x y');
 for i:=1 to a 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('Pri x=',x:0:2,' y<=0'); 
  x:=x+pi/8;
  end;
Readln;
end.

Но мне сказали, что слишком много ненужного и надо убрать, а это у меня не получается.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Вот что я сделал

Вы уверены, что это Вы сами сделали?
И уверены, что этот код имеет какое-то отношение к условиям вашей задачи?!

Потому что в задании нет никаких Пи, например.
Да и формулы другие.
Как Вам удалось написать код, который решает ДРУГУЮ задачу?!

[Gybert]

Да , конечно уверен, потому что данный код писал лично я, но видимо не правильно и по этому обратился сюда
Прошу прощения, ошибка была моя. Я дал не то условие задачи.