помогите написать программу вычисления и вывода в цикле 4-х результатов при х, заданном от -2 до 2 с шагом 0,4 при а=1.2 d=3.8
е в степени корень из х+1 при х больше чем о,4
Z=
ctgax+sinbx в остальных случаях

PascalABC.Netvar  a,d,x,z:real;begin  a:=1.2; d:=3.8; x:=-2;  while x<=2 do begin    if abs(x)>=0.0001 then begin { вот так приходится обходить нули! }      if x>0.4 then z:=exp(sqrt(x+1))      else z:=cos(a*x)/sin(a*x)+sin(d*x);      Writeln('x=',x:7:4,', Z=',z:7:4)    end    else Writeln('Функция не определена для x=0');    x:=x+0.4  endend.Результат выполнения программыx=-2.0000, Z= 0.1238x=-1.6000, Z= 0.5659x=-1.2000, Z= 0.8569x=-0.8000, Z=-0.8015x=-0.4000, Z=-2.9195Функция не определена для x=0x= 0.4000, Z= 2.9195x= 0.8000, Z= 3.8253x= 1.2000, Z= 4.4072x= 1.6000, Z= 5.0151x= 2.0000, Z= 5.6522