for i:= 1 to 5 do
У тебя i идет от 1 до 5. В этом интервале только 2 четных числа - 2 и 4
И пишешь что надо произведение, а сам сумму считаешь