Найти сумму 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.