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

Question

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

---

Comments

pascal

---

fee?

---

free?

---

да

---

сможешь решить?

---

У меня нет этой версии, проверь, работает возведение в степень вот так: 2**3

---

нет freepascal?

---

обычный pascal есть?

---

У меня есть pascalABC.NET, я синтаксис не помню, но сейчас напишу

---

хорошо

Answer 1

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