Вынеси формулу в виде функции.
Затем создай цикл с предусловием вида:
Code
x := L;
While x <= R do
Begin
x := x + T;
Writeln(x, '......',f(x));
...
...
End;
Ну а чтобы подсчитывало количество отрицательных значений функции с нечетной частью - нужно в самой функции f дополнительные вычисления производить... И вывод отформатировать. Смотри форматы вывода.
