Написать программу, которая вычисляет сумму первых N членов ряда 1,3,5…, Количество членов ряда задать с клавиатуры — Pascal(Паскаль)

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