Написать программу, которая вычисляет сумму первых n целых положительных чётных чисел. Паскаль

1)// PascalABC.NET 3.3begin  var n:=readInteger;  writeln(SeqGen(n,2,x->x+2).Sum);end.2)var n,s,i:integer;beginreadln(n);s:=0;for i:=1 to n do s:=s+2*i;writeln(s);end.Пример:530