Помогите составить программу на языке паскаль

S=2+4+6 ... + 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.