var
s,k: integer;
begin
s:= 0;
for k:=10 to 100 do
if k mod 7 = 0 then
s:= s+sqr (k);
writeln (s);
end.
var
s,k: integer;
begin
s:= 0;
for k:=10 to 100 do
if k mod 7 = 0 then
s:= s+sqr (k);
writeln (s);
end.