1)Вывести числа кратные (11) от 10 до 100 в Turbo pascal
2)С клавиатуры вводятся числа и последовательно перемножаются. Найти кол-во введённых чисел, когда их произведение превысит 1000. Прошу помощи.