Пример кода на Pascal:

program calculateExpression;
var
X: real;
N: integer;
result: real;
i: integer;
begin
write('Введите вещественное число X: ');
readln(X);
write('Введите целое число N (>0): ');
readln(N);
result := X;
for i := 1 to N do
begin
if i mod 2 = 0 then
result := result - power(X, 2*i+1)/(2*i+1)
else
result := result + power(X, 2*i+1)/(2*i+1);
end;
writeln('Результат: ', result);
end.

Этот код запрашивает у пользователя вещественное число X и целое число N, а затем вычисляет и выводит результат уравнения X – X^3/3 + X^5/5 – ... + (-1)^N * X^(2N+1)/(2N+1).