Сумма ряда

[Veina]

Нужно написать программу подсчета ряда I=h*(сумму по i от 0 до (n-1) от функции F(Xi), Хi=i*h ). Программу написала, проверьте, пожалуйста:

uses crt;
function f(x: real): real;
begin
 f := sqrt(1+cos(x));
end;

var a,b,h,x,y,y1,y2: real;
    n: integer;
begin
 clrscr;
 write ('a='); readln (a);
 write ('b='); readln (b);

 write ('n='); readln (n);

 h := (b-a)/n;

 y := 0; x := a;      {x = a = X0}
 while x < b do begin {x < Xn}
  y := y + f(x);
  x := x + h;        {x = X0, X1, X2 ... Xn-1}
 end;
 y := y * h;
 writeln ('integral raven ', y: 10: 6);

 readkey;
end.

Считает вроде правильно, но вопрос в том, как сделать i не от 0, а от 1 ?
Подскажите, пожалуйста