помогите составить программу на языке паскаль
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