Вычислить сумму ряда чисел 2+4+6...+50

Program n1;var s,a:real;begins:=0;a:=0;while a<50 dobegina:=a+2;s:=s+a;end;writeln('сумма=',s);end.