Помогите пожалуйста сделать 4

Question

Помогите пожалуйста сделать 4

---

Answer 1

Program pr1;

var

  x:byte; // Число

  y:real; // Функци

Begin

  x:=17;

writeln('y= ',SQRT(x+8));

End.

Дальше просто замени другими значениями x