program P1;vari,summ : integer;begin
summ := 0;
for i := 10 to 600 doif i mod 7 = 0 thensumm := summ + i;
writeln('Otvet: ',summ);
readln;readln;end.