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

Спасибо большое! Всё понятно и чётко расписано, а главное, что работает :)

Пожалуйста.

var a,b,i,s:integer;beginwrite('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 = 1b = 30s = 70