Оператор присваивания. Составить программу к примеру ** этой фотографии

Question

Оператор присваивания. Составить программу к примеру на этой фотографии

---

Answer 1

var

  x, y : real;

begin

  read (x);

  y := (sqrt (sqr (x) + (2 / x)) / (2.1 + sin (x))) + ln (2 * x);

  writeln (y);

end.