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

program zz1;

var i, s:integer;

begin

i:=2; / /задаем первое число ряда

while i<=50 do / /организуем цикл пока число ряда не достигнет пятидесяти

begin

s:=s+i; / /добавляем число ряда в сумму

i:=i+2; / /получаем следующее число ряда

end;

write (' сумма чисел ряда=', s); / /выводим ответ

end.