Дано натуральное число n. Вычислить 1+2+4+6…n Чуть что это паскаль.

var n: integer;
begin readln(n); writeln((n - 1) * n + 1) end.

var
n,i:integer;
begin
n:=0;
i:=1;
while (i