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

S=2+4+6 ... + n

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.

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