Написать на Паскале программу вычисления суммы: S=2+4+6+8+...+2*N, где N вводится с клавиатуры

1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.

2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.

3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.

var

  b:array[1..100] of integer;

  i, count, n:integer;

begin

  randomize;

  write('n = '); readln(n);

  for i := 1 to n do

  begin

    b[i] := random(51) - 25;

    writeln('b[', i, '] = ', b[i]);

  end;

  writeln;

  count := 0;

  for i := 1 to n do

    if b[i] >= 0 then

    begin

      writeln('b[', i, '] = ', b[i], ' >= 0');

      inc(count);

    end;

  writeln('Count = ', count);

end.

// вторая программа

const

  n = 20;

var

  a:array[1..n] of integer;

  i, k:integer;

begin

  randomize;

  writeln('Исходный массив: ');

  for i := 1 to n do

  begin

    a[i] := random(51);

    write(a[i], ' ');

  end; 

  writeln;

  write('k = '); readln(k);

  if (k > n) or (k  < 1) then

  begin

    writeln('элемента с таким индексом нет');

    readln;

    Exit;

  end;

  for i := k to n - 1 do

    a[i] := a[i + 1];

  a[n] := 0;

  writeln('Измененный массив:');

  for i := 1 to n - 1 do

    write(a[i], ' ');

  readln;

  writeln;

end.