Задача на цикл с предусловием составить программу вывода 10 целых чисел на экран паскаль

Конечно! Вот пример программы на Паскаль, которая использует цикл с предусловием ( repeat... until ...) для вывода 10 целых чисел. В данном случае, будем выводить числа от 1 до 10. ```pascal program PrintNumbers; uses crt; var i: integer; begin i := 1; // Начальное значение переменной repeat writeln(i); // Вывод текущего значения i := i + 1; // Увеличение переменной until i > 10; // Условие завершения цикла end. ``` ### Объяснение кода: - Переменная `i` инициализируется значением 1. - Цикл `repeat... until` сначала выполняет тело, затем проверяет условие `i > 10`. - В теле цикла мы выводим значение `i` и увеличиваем его на 1. - После этого, если `i` стало больше 10, цикл завершится, иначе повторится. Данный код выведет числа от 1 до 10, каждое на новой строке. Если нужно вывести иные числа или изменить порядок, скажите!