Найти сумму четных натуральных чисел кратных 7 из промежутка[23; 49] !

Var
  i, sum: integer;

begin
  sum := 0;
  for i := 23 to 49 do if (i mod 7 = 0) and (i mod 2 = 0) then sum := sum + i;
  writeln(sum);
end.