Составить программу для вычисления значений переменных. Вывести на экран значения исходных данных и результатов промежуточных и окончательных вычислений, сопровождая вывод именами переменных -Pascal(Паскаль)

uses crt;
var b,m,a1,a2,x,y,y1,y2,y3:real;
begin
clrscr;
{вводим и выводим исходные данные}
write('b=');readln(b);
write('m=');readln(m);
{вычисляем и выводим а1}
if b>0 then a1:=2
else a1:=abs(b);
writeln ('a1=', a1:0:4);
{вычисляем и выводим х}
x:=(1-sin(m))/sqr(a1);
writeln ('x=', x:0:4);
{вычисляем и выводим первое слагаемое формулы}
y1:=arctan(x);
writeln ('y1=',y1:0:4);
{вычисляем и выводим второе слагаемое}
y2:=Ln(sqrt((1+x)/(1-x)));
writeln ('y2=',y2:0:4);
{вычисляем и выводим третье слагаемое,только не надо вводить приближенное значение е, 
вы получаете ошибку, либо непредсказуемый результат, есть же формула!}
y3:=exp(x);
writeln ('y3=',y3:0:4);
{вычисляем и выводим результат}
y:=y1+y2+y3;
writeln ('y=',y:0:4);
readln
end.