Выведите на экран turbo pascal используя операторы while и repeat: 1)все двухзначные числа, в которых старшая цифра отличается от младшей не больше чем на 1; 2)все трехзначные числа, в которых хотя бы две цифры повторяются