Цикл с предусловием, цикл с постусловием и цикл с параметром - Free Pascal

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

Объясните пожалуйста как делать эти циклы. У меня не получается. Можете сделать как на фото, или на подобии. Заранее спасибо)

Решение задачи: «Цикл с предусловием, цикл с постусловием и цикл с параметром»

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

var y,b:real;
    i:byte;
begin
writeln('Цикл с параметром');
y:=0.24;
for i:=1 to 6 do
 begin
  b:=ln(abs(sin(y)))/ln(abs(cos(y)));
  writeln('y=',y:5:2,' b=',b:5:2);
  y:=y*2;
 end;
writeln('Цикл с предусловием');
y:=0.24;
while y<=7.68 do
 begin
   b:=ln(abs(sin(y)))/ln(abs(cos(y)));
  writeln('y=',y:5:2,' b=',b:5:2);
  y:=y*2;
 end;
writeln('Цикл с постусловием');
y:=0.24;
repeat
b:=ln(abs(sin(y)))/ln(abs(cos(y)));
writeln('y=',y:5:2,' b=',b:5:2);
y:=y*2;
until y>7.68;
end.

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

Объявлены три переменные: y, b (тип real) и i (тип byte).
Выводится сообщение Цикл с параметром.
Значение переменной y инициализируется как 0.24.
Запускается цикл с параметром, который выполняется 6 раз.
Внутри цикла вычисляется значение переменной b по формуле ln(abs(sin(y)))/ln(abs(cos(y))).
Выводится сообщение с значениями переменных y и b.
Значение переменной y умножается на 2.
Выводится сообщение Цикл с предусловием.
Значение переменной y инициализируется как 0.24.
Запускается цикл while, который выполняется до тех пор, пока значение переменной y не станет больше или равным 7.68.
Внутри цикла вычисляется значение переменной b по формуле ln(abs(sin(y)))/ln(abs(cos(y))).
Выводится сообщение с значениями переменных y и b.
Значение переменной y умножается на 2.
Выводится сообщение Цикл с постусловием.
Значение переменной y инициализируется как 0.24.
Запускается цикл repeat, который выполняется до тех пор, пока значение переменной y не станет больше 7.68.
Внутри цикла вычисляется значение переменной b по формуле ln(abs(sin(y)))/ln(abs(cos(y))).
Выводится сообщение с значениями переменных y и b.
Значение переменной y умножается на 2.
Цикл завершается.