Вычислить сумму и произведение Pascal

[Imperator225]

Вычислить сумму и произведение полученных значений функции. Со-ставить три варианта программы – с операторами repeat, while, for
asdx.png

[newerow1989]

function fV(x,a,b:real):real;
begin
   Result:=Ln(Sin(Power(x*pi/180,5)))*a*b;
end;

const a=2.22;
      b=3;
      dx=0.2;
      x0=3;
      x1=5;
      dh=Round((x1-x0)/dx);
var i:integer;
    x,V:real;
begin
   x:=x0-dx;
   Repeat
      x:=x+dx;
      V:=fV(x,a,b);
      Writeln('x = ',x:2:1,'  V = ',v:5:5);
   Until x>=x1;
   Writeln;
   x:=x0-dx;
   While x<x1 do
   begin
      x:=x+dx;
      V:=fV(x,a,b);
      Writeln('x = ',x:2:1,'  V = ',v:5:5);
   end;
   Writeln;
   For i:=0 to dh do
   begin
      x:=x0+i*dx;
      V:=fV(x,a,b);
      Writeln('x = ',x:2:1,'  V = ',v:5:5);
   end;
   Readln;
end.