Цикл while. Сумма чисел на интервале.

[adept]

Вот задача: Найти сумму четных, положительных и отрицательных чисел на отрезке [a;b] (С помощью цикла WHILE)

[Хыиуду]

x:=a;
while x<=b do
begin
if x>0 then inc(positive, x);
if x<0 then inc(negative,x)
if not odd(x) then inc(even, x);
inc(x);
end;