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

Если число кратно одновременно 7 и 9, то оно кратно и произведению 7×9=63

var
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;<br> s:=0; p:=1; k:=0;
while a<=b do begin<br>    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

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