Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1

Вопрос от посетителя

Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1

Отвечает Илюха:

var i:integer;

Begin

  for i:= 35 to 87 do

    if i mod 7 =1 then

      writeln(i);

End.