На интервале от a до b найти количество сумму и произведение чисел кратных 7 и 9 одновременно и вывести их на экран

Если число кратно одновременно 7 и 9, то оно кратно и произведению 7×9=63var a,b,m,k,s:integer; p:real;begin  Write('Введите границы интервала: '); Read(a,b);  if a>b then begin    m:=a; a:=b; b:=m    end;  m:=a mod 63;  if m>0 then a:=a+63-m  else if m<0 then a:=a-m;  s:=0; p:=1; k:=0;  while a<=b do begin    s:=s+a; p:=p*a; k:=k+1;    a:=a+63    end;  Writeln('На интервале для чисел, кратных 7 и 9 одновременно:');  Writeln('Количество ',k,', сумма ',s,', произведение ',p)end.ПримерВведите границы интервала: 613 2100На интервале для чисел, кратных 7 и 9 одновременно:Количество 24, сумма 32508, произведение 3.65675480699261E+74