Помогите пожалуйста!! Составьте программу в Паскале: Вычислить сумм всех нечётных чисел в интервале от 1 до 2К-1. Заранее ОГРОМНОЕ спасибо Вам!!

Плюс к эффективности)

Это спорно: подобные программы пишутся на один раз и часто бывает, что общее время на получения результата от момента получения задачи и по выдачи оказывается меньше совсем не у самой эффективной программы, а у той, которую было быстрее всего написать и отладить))))

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