Вычислить выражение - Pascal ABC (13022)

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

С разветвленной структурой Интервал: [0.1; 1], шаг

Решение задачи: «Вычислить выражение»

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

var ix: integer;
    t: real;
begin
  writeln('+-----+----------------+');
  writeln('|  x  |        y       |');
  writeln('+-----+----------------+');
  for ix := 1 to 10 do
    begin
      t := ix / 10;
      write('| ', t:3:1, ' | ');
      t := 1.5 * t;
      if t < 1
        then write(t - ln(t) / ln(10):0:12)
        else if t > 1
          then write(t - ln(t) / ln(10):0:12)
          else write(1.0:0:12);
      writeln(' |')
    end;
  writeln('+-----+----------------+')
end.

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

Объявляются переменные ix и t типа integer и real соответственно.
Выводится заголовок для таблицы с числами.
В цикле for с ix от 1 до 10 вычисляется значение переменной t как ix деленное на 10.
Значение переменной t записывается в строку с разделителем |.
Затем выполняется умножение t на 1.5.
Если полученное значение t меньше 1, то вычисляется значение ln(t) / ln(10) и записывается в строку с разделителем |.
Если полученное значение t больше 1, то вычисляется значение ln(t) / ln(10) и записывается в строку с разделителем |.
Если полученное значение t равно 1, то записывается 1.0:0:12 в строку с разделителем |.
Выводится символ | после строки с числом.
Цикл for завершается после прохода по всем числам от 1 до 10.
Выводится итоговая строка с разделителем +-----+----------------+.