Введите с клавиатуры натуральное число N.
Выведите на экран те натуральные числа не превышающие N которые делятся на 13 или на 7. ПОжалуйста!
По дате
По рейтингу
Тупо и в лоб:
readln(n);
for j:=1 to n div 7 do writeln(j*7);
for j:=1 to n div 13 do writeln(j*13);