цикл repeat nan

[Alexmur07]

uses crt;
const a=-0.4;b=4.0;
var
 i,s:real;
begin
 clrscr;
 writeln('Лабораторная работа 2');
 writeln('---------------------');
 writeln('Заданное выражение: -0.4-0.8+1.2+...+4.0');
 writeln('Циклический оператор: Repeat');
 i:=a;
 s:=0;
 Repeat
 s:=s+i;
 if i>0 then i:=i+0.4
else
 i:=-i;
 i:=i-0.4;
until
abs(i)<=abs(b);
 writeln('Результат = ',s:5:1);
 writeln('Для завершения нажмите любую клавишу');
 readkey;
end.

вообщем либо ответ -0,4 либо NAN подскажите что я не так делаю ? можете привести пример?

Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор. -0.4-0.8+1.2+...+4.0 - это само задание

[Smogg]

Сообщение от Alexmur07

uses crt;
 if i>0 then i:=i+0.4
else
 i:=-i;
 i:=i-0.4;

Может быть, имел в виду такое:

 if i>0 then i:=i+0.4
else
begin
 i:=-i;
 i:=i-0.4;
end;

?

[Alexmur07]

а суть решения правильно написано...? )) хочу хорошую оценку...