Немогу решить задачу в паскале на цикл

[Ruster]

Вычислить
p=sin(a)*ln(V)/exp((1/5)*Ln(ABS(V-4))) где а=1.35 если:
V=exp((1/3)*ln(x+2))+SQR(sin(x)) при Х<=0.1
V=a*x/(x*x+0.32) при 0.1<x<2
V=arctan(SQR(a*x/2)) в остальных случаях.
пределы
-2<=x<=4 шаг H=0.5

[paloit]

362827711 стучи помогу. Помощь платная.

[puporev]

uses crt;
var a,x,h,p,v:real;
begin
clrscr;
a:=1.35;
h:=0.5;
x:=-2;
while x<=4 do
  begin
   if x=-2 then v:=sqr(sin(x))//при x=-2 exp(ln(x+2)/3) не определен, хотя=0 
   else if (x<=0.1)and(x<>-2) then
   v:=exp(ln(x+2)/3)+sqr(sin(x))
   else if (x>0.1)and(x<2) then
   v:=(a*x)/(x*x+0.32)
   else v:=arctan(sqr(a*x/2));
   p:=sin(a)*ln(v)/exp(ln(abs(v-4))/5);
   writeln('x=',x:4:1,'  p=',p:8:5);
   x:=x+h;
  end;
readln
end.

[Ruster]

Все ок нормальное решение. Кстати я пробовал через "репит унтил" тоже все ссылалось на условия