Напишите программу в abc pascal с оператором while .

y=2*х^2+x-2.5
x=0.1;0.2; ...2.3
X^Y = exp(ln(X) * Y)

var
i,x,sum:real;
begin
sum:=0;
i:=0.1;
while i