Найти сумму чисел от a до b, квадраты которых делятся на 7

Var a,b,i,s:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=0;
for i:=a to b do
 if i*i mod 7 = 0 then s:=s+i;
writeln('s = ',s);
end.

Пример:
a = 1
b = 30
s = 70