Циклические операторы: выводить на экран k звездочек (8 раз в столбик) - Pascal

Формулировка задачи:

Надо написать программу, которая будет выводить на экран k****************** (8 раз в столбик). причём количество * вычисляется по формуле 18-2*k. а) Оператор цикла с параметром. б) Оператор цикла с постусловием. в) Оператор цикла с предусловием.

Решение задачи: «Циклические операторы: выводить на экран k звездочек (8 раз в столбик)»

Листинг программы

Const n=8;
Var k,j:byte;
Begin
    k:=1;
    Repeat
     j:=1;
     Repeat
      write('*');
      inc(j);
     Until j>18-2*k;
     writeln;
     inc(k);
    Until k>n;
    readln;
End.

Объяснение кода листинга программы

Объявлены две переменные: k и j типа byte. Значение переменной k равно 1, а значение переменной j равно 1.
В цикле повторяется блок кода, пока значение переменной j не станет больше 18 минус удвоенное значение переменной k.
Внутри цикла выводится на экран одна звездочка, а затем значение переменной j увеличивается на 1.
После окончания внутреннего цикла выводится на экран символ новой строки, значение переменной k увеличивается на 1 и проверяется условие выхода из внешнего цикла.
Цикл выполняется до тех пор, пока значение переменной k не станет больше 8.
После окончания внешнего цикла программа ожидает ввода данных с клавиатуры.