Составить программу на языке паскаль s=2+4++n

Var
  i,n,s:longint;
begin
  Write('Введите четное значение последнего члена ряда: ');
  Readln(n);
  s:=0;
  for i:=1 to n div 2 do s:=s+2*i;
  Writeln('Сумма членов ряда равна ',s)
end.

Тестовое решение:
Введите четное значение последнего члена ряда: 50
Сумма членов ряда равна 650

Var s, i, n: integer;
begin
read(n);
i:=2;
write('S = ');
while (i<=n) do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
end.