Программа выполняется в паскале! даны натуральные числа от 35 до 87. найти и напечатать те из них, которые при делении на 7 остаток 1, 2 или 5. .

Var i :integer;
Begin
  for i := 35 to 87 do
    if (i mod 7 = 1) or (i mod 7 = 2) or (i mod 7 = 5) then
        writeln(i);
End.