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