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

rogram test;

Uses Crt;

Var

j:byte;

BEGIN

for j:=35 to 87 do

if (j mod 7) in [1,2,5] then write (' ', j);

writeln;

Writeln ('Press any key ... ');

repeat

until KeyPressed

END.

program zz1;

var n1, n2, i:integer; / / задаем переменные целого типа

begin

write (' введите число 35 '); / / вводим с клавиатуры натуральное число

read (n1);

write (' введите число 87 '); / / вводим с клавиатуры натуральное число

read (n2);

for i:=n1 to n2 do / / организуем цикл, в котором переберем все числа от первого введенного числа до другого

if (i mod 5 = 0) or (i mod 7 = 0) / / проверяем условие, если очередное число делится на пять без остатка или одновременно делится на семь без остатка, то

then write (' ', i); / / выводим ответ в строчку через пробел

end.