Сделать Номер 1 !!!!

Question

Сделать Номер 1 !!!!

---

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
  Window.SetSize(800,600);
  Draw(x->x=1?1.0:10/(x-1)+5*Sin(x),-20.0,20.0)
end.

Результат приведен во вложении

---