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

Конечно! Вот пример программы на Паскаль, которая использует цикл с предусловием ( repeat... until ...) для вывода 10 целых чисел. В данном случае, будем выводить числа от 1 до 10.

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, каждое на новой строке.

Если нужно вывести иные числа или изменить порядок, скажите!