Вывести положительные значения функции u=tg(23.5tg(2ln3.7k)) на отрезке (2.11, j) - Pascal ABC

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

Составить постановку, алгоритм и программу выдачи на экран в PASCALe положительных значений функции u=tg(23.5tg(2ln3.7k)) на отрезке (2.11, j) - (квадратные скобки) с шагом r.

Решение задачи: «Вывести положительные значения функции u=tg(23.5tg(2ln3.7k)) на отрезке (2.11, j)»

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

var j,k,r,a,b,c,u:real;
begin
repeat
write('Введите конец интервала j<2.11 j=');
readln(j);
until j>2.11;
repeat
write('Введите шаг r<',j-2.11:0:2,' r=');
readln(r);
until r<j-2.11;
k:=2.11;
while k<=j do
 begin
  a:=2*ln(3.7*k);
  b:=sin(a)/cos(a);
  u:=23.5*sin(b)/cos(b);
  if u>0 then writeln('k=',k:5:2,' u=',u:9:3);
  k:=k+r;
 end;
end.

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

Объявлены переменные j, k, r, a, b, c, u типа real.
Задается цикл повторения с помощью ключевого слова repeat.
В каждой итерации цикла пользователю предлагается ввести конец интервала j.
Если j больше 2.11, то цикл продолжается, иначе он завершается.
Задается цикл повторения с помощью ключевого слова repeat.
В каждой итерации цикла пользователю предлагается ввести шаг r.
Если r меньше j-2.11, то цикл продолжается, иначе он завершается.
Устанавливается значение переменной k равным 2.11.
Задается цикл while для перебора значений k от 2.11 до j.
В каждой итерации цикла вычисляются значения переменных a и b.
Вычисляется значение переменной u на основе вычисленных значений a и b.
Если u больше нуля, то выводится сообщение с значениями k и u.
Устанавливается значение переменной k равным k+r.
Цикл while продолжается до тех пор, пока k меньше или равно j.
Завершается цикл while.
Завершается цикл повторения.