просто проверить код паскаля

[mishammm]

Я немного вас помучу:
Задачка (на картинке)
Мой код:

program laba4_2;
uses crt;
var
 x, v, y, vs, dv,vp,vk:real;
begin
v:=vp;
Writeln('vvedi vp,vs,vk,dv');
Readln(vp,vs,vk,dv);
While (vp<=vk) do
begin
If (v<=vs) then
x:=exp(v * ln(1.26)) + v
else
x:=pi/2-arctan(v+0.4);
end;
v:=v+dv;
writeln('pri v=',v , 'x=',x);
Readln
End.

Я запутался немного с присвоением букв. я то числа ввел а програма ничего не считает! (( Прошу вашей професиональной помощи!

[BDA]

program laba4_2;
uses crt;
var
  x, v, dv, vp, vk: real;
begin
  repeat
    Writeln('vvedi vp, vk, dv');
    Readln(vp, vk, dv);
  until (vp < 0) or (vk >= 4) or (dv > 0.1) or (dv <= 0);
  v:=vp;
  While v <= vk do
  begin
    If v < 1 then
      x := exp(v * ln(1.26)) + v
    else
      x := pi / 2 - arctan(v + 0.4);
    writeln('pri v = ',v:0:4, ' x = ',x:0:4);
    v := v + dv;
  end;
  Readln
End.