На интервале от a до b найти количество сумму и произведение чисел кратных 7 и 9 одновременно и вывести их на экран ЯЗЫК ПАСКАЛЬ. ПОМОГИТЕ ПОЖАЛУЙСТАА

Если число кратно 7 и 9 одновременно, то оно кратно и их произведению, т.е. 63.PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b):=ReadInteger2('Введите границы интервала');  if a>b then Swap(a,b);  var m:=a mod 63;  if m>0 then a:=a+63-m  else if m<0 then a:=a-m;  var s:=Range(a,b,63);  Writeln('На интервале для чисел, кратных 7 и 9 одновременно:');  Writeln('Количество ',s.Count,', сумма ',s.Sum,', произведение ',      s.Aggregate(BigInteger(1),(p,q)->p*q))end.ПримерВведите границы интервала 613 2100На интервале для чисел, кратных 7 и 9 одновременно:Количество 24, сумма 32508, произведение 365675480699261550432828460140720056759879856012024400651039614959616000000