Question

Помогите пожалуйста, завтра сдавать,не шарю,пооомогите

Answer 1

//должно работать
var
  x: real;
begin
  x := 1.0;
  while (x <= 2) do
  begin
    Writeln(exp(ln(x + exp(ln(2) * x)) * 2) + 21);
    x := x + 0.5;
  end;
end.