Помогите написать ** паскале решение. Задание 10.

Question

Помогите написать на паскале решение. Задание 10.

---

Answer 1

begin

 var x, y: real;

 Read(x);

 if x

 else y := LogN(4, x) - 1;

 Print(x, y)

end.