Найти сумму чисел от 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