Составьте программу в паскале: вычислить сумм всех нечётных чисел в интервале от 1 до 2к-1. заранее огромное

// PascalABC.NET 3.2, сборка 1377 от 19.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var k:=ReadInteger('k=');
  Writeln('s=',Range(1,2*k-1,2).Sum)
end.

Пример
k= 4
s=16

Var
    k: integer; s: real;
begin
    readln(k);
    s := ((1+(2*k-1))/2)*(((2*k-1)-1)/2+1);
    writeln(s);
end.