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

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