Оператор цикла с предусловием - решить уравнение - Pascal ABC

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

Если не сложно, можете помочь 2 уравнения

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

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

const
  a=0.8;
  b=4.5;
var
  x:real;
begin
   x:=0.8;
  while x<2 do begin
    write('Y(',x:0:2,')='); 
    if x<1 then writeln(ln(x)/ln(10)+7*x*x*x:0:4);
    if x=1 then writeln(2*a*sin(x)+5*a:0:4);    
    if x>1 then writeln((a*sqr(x)+b)/(sqr(x)-1):0:4);    
    x:=x+0.2;
  end;
end.

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

const - объявляются константы
a=0.8; - объявляется константа
b=4.5; - объявляется константа
var - объявляются переменные
x:real; - объявляется переменная типа real
begin - начинается блок кода
x:=0.8; - присваивается значение переменной x
while x<2 do begin - начинается цикл while x меньше 2
write('Y(',x:0:2,')='); - выводится значение переменной x
if x<1 then writeln(ln(x)/ln(10)+7xx*x:0:4); - выводится значение выражения если x меньше 1
if x=1 then writeln(2asin(x)+5*a:0:4); - выводится значение выражения если x равно 1
if x>1 then writeln((a*sqr(x)+b)/(sqr(x)-1):0:4); - выводится значение выражения если x больше 1
x:=x+0.2; - присваивается значение переменной x
end; - заканчивается блок кода
end. - заканчивается программа