Чтобы программировать и создавать программы
<span>Назад(5): 3-5 = -2
Вперед(3): -2+3 = 1
Вперёд (3): 1+3 = 4
</span>Ответ: 4
Var i, byear, eyear, k : integer;
Begin
read(byear, eyear);
byear := byear + 1;
for i := byear to eyear do
if (i >= 1605) and ((i - 1605) mod 10 = 0) then k:= k +1;
writeln(k);
End.