Нати сумму чисел от а до в, квадраты которых делятся на 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

Думаю, что числа целые. Тогда может получиться так:

var a,b,s,i: integer;
begin
  writeln('Введите два числа');
  readln(a,b);
  for i:=a to b do
    if sqr(i) mod 7 = 0 then s:=s+i;
  writeln(s);
end.