Оператор цикла

[sanek@zaputan]

Помогите написать программу с оператором цикла.Задание 'сверни-голову' ниже

[vova_]

на каком языке хоть прогу надо

[Leo_nid]

а можно шаг 0.1 сделать? А членов ряда так и останется 10...

[sanek@zaputan]

Язык Delphi.я только русский пока освоил
На шаг по-фиг,наверно можно любой

[Niro]

держите

h:= (xk-xn)/10;
x:= 0.1;
while x <= xn do
  begin
    x:=x + h;
    sum:= sum + ( (1+sqr (x))*0.5*arctg (x) - x/2);
    writeln (sum:0:4);	
  end;

[sanek@zaputan]

я буду очень благодарин, если все прокатит. Не объясните откуда чего