Составьте программу вычисления значения выражения для данного натурального числа n: 4+8+12+ … +4∙n.(паскаль)

Вариант первый, обычным циклом.
program easy;
var n,i,k,a:integer;
begin
  readln(n);
  for i:=1 to n do begin
    k+=4; //k=4i
    a+=k;
  end;
  writeln(a);
end.

Вариант второй. Искомую сумму можно представить как
program normal;
var n:integer;
begin
  readln(n);
  writeln(2*n*(n+1));
end.