Составьте программу вычисления суммы двухзначных чисел, кратных 7 и 9

Var i,n,sum: integer; begin sum:=0; for i:=10 to 99 do if (i mod 7=0) and (i mod 9=0) then    begin    sum:=sum+i;      end;  writeln ('сумма чисел кратных 7 и 9=',sum); end.