Дано натуральное число 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<=n)
begin
n:=n+i;
int(c);
end;
writeln(n);
end.