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