Даны естественные числа от 35 до 87. Найти и напечатать те

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) // проверяем условие, если еще одно число делится на 5 без остатка либо сразу делится на семь без остатка, то

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

end.

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.