Скласти програму для обчислення значення виразу g=50+48++2

Var
    i, g: integer;

begin
    for i := 50 downto 2 do
        if i mod 2 = 0 then g := g + i;
    writeln(g);
end.