program test;
var i,s:integer;
begin
s:=0;
i:=1;
repeat
if i mod 7 = 0 then s:=s+i;
i:=i+1
until i>100;
write(s)
end.
program test;
var i,s:integer;
begin
s:=0;
i:=1;
repeat
if i mod 7 = 0 then s:=s+i;
i:=i+1
until i>100;
write(s)
end.