Напишите программу в 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<=2.3 do
begin
x:=i;
writeln ('x: ',x:10:2);
sum:=(2*( exp(ln(x) * 2) )+x)-2.5;
writeln ('Summa: ',sum:10:2);
i:=i+0.1;
end;
end.

С тебя пиво: https://sobe.ru/na/donate_tour
Код и результат выполнения https://rextester.com/GQMMW61351