[Страдалецъ]

Код:

Var
  Sum,i: Integer;
begin
 Sum := 0;
 for i := 1 to 49
 do if i mod 2 = 0
    then Inc(Sum,i);
 WriteLn(Sum);
 ReadLn;
end.