Вычислить на Паскале сумму первых N целых положительных четных чисел.

При вычислении суммы следует помнить, что четные числа можно найти, используя формулу 2*n, где n - положительные числа.

program ex28;
uses
crt;
var
i, x, n, s: integer;
begin
clrscr;
s:=0;
write('введите число элементов последовательности n=');
readln(n);
for i:=1 to n do
begin
s:=s + 2*i;
end;
write('s=',s:6);
readln;
end.