Правда,всё на виду ,без лжи
Для того что бы вводить нужные нам знаки
к примеру : даже сейчас я пользуюсь
клавиатурой
23 div 5=4
16 div 4=4
5 div 8=0
37 div 10=3
23 mod 5=3
16 mod 4=0
5 mod 8=5
37 mod 10=7
"Каждая вторая" означает, что с дистанции сошли машины с четными номерами.
var
i:integer;
begin
Write('С дистанции сошли машины с номерами ');
i:=2;
repeat
Write(i,' ');
i:=i+2
until i>17
end.
Результат
С дистанции сошли машины с номерами 2 4 6 8 10 12 14 16
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.