Напишите программу для системы уравнений, которая выводит таблицу значений функций - Pascal ABC

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

Интервал: [0.1; 1], шаг

Решение задачи: «Напишите программу для системы уравнений, которая выводит таблицу значений функций»

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

var x,y:real;
begin
x:=0.1;
while x<=1 do
 begin
  if 1.5*x<1 then y:=1.5*x-ln(1.5*x)/ln(10)
  else if 1.5*x>1 then y:=1.5*x+ln(1.5*x)/ln(10)
  else y:=1;//это условие никогда не выполнится
  writeln('x=',x:0:1,'  y=',y:5:3);
  x:=x+0.1;
 end;
end.

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

Объявляются переменные x и y типа real.
Значение переменной x устанавливается равным 0.1.
Задается условие для цикла while: x <= 1.
Если условие выполняется, то вычисляется значение переменной y по формуле y = 1.5x - ln(1.5x)/ln(10).
Если условие не выполняется, то вычисляется значение переменной y по формуле y = 1.5x + ln(1.5x)/ln(10).
Если ни одно из условий не выполняется, то значение переменной y устанавливается равным 1.
Выводится строка 'x=', за которой следует значение переменной x в формате 0.1:0.0:1, а затем строка 'y=', за которой следует значение переменной y в формате 5.0:3.
Значение переменной x увеличивается на 0.1.
Цикл while повторяется, переходя к следующему значению переменной x.