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

Question

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

Answer 1

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.