Найти сумму 1*4+2*4+3*4+4*4+5*4+6*4+..n*4 в паскале. нужно

Var i,n,sum:integer;
begin
sum:= 0;
ReadLn(n);
for i:= 1 to n do
 sum := sum + i*4;
WriteLn(sum);
end.

Или

var n,sum:integer;
begin
sum:= 0;
ReadLn(n);
Sum = ((1 + n)/2 * n) * 4;
WriteLn(sum);
end.