Найти сумму n первых нечётных натуральных чисел.(Паскаль)

Var
  n,i,a:integer;
Begin
  Write('Введите число ');
  Readln(n);
  if n>=1 then Begin write('Сумма нечётных чисел от 1 до ',n,' = ');
                              for i:= 1 to n do
                                if ((i mod 2) <> 0) then a:=a+i;
                              write(a);
                    End else write('Введено число меньше единицы');
End.

Спасибо огромное)))