Написать программу, которая вычисляет сумму первых n нечётных натуральных чисел(паскаль). например, если n=3 то ответ 9 т.е 1+3+5

Var n, i, sum: integer;
begin
read(n);
sum := 0;
for i:=1 to n do
sum := sum + (2*i-1);
writeln(sum);
end.