哪个语言啊?
如果是pascal的话
program sum;
var sum:int64;
i:shortint;
begin
i:=5;
repeat
if i mod 7=0 then
sum:=sum+sqr(i);
inc(i);
until i>300;
writeln(sum);
end.