Решите пожалуйста две задачи ** Pascal.

Question

Решите пожалуйста две задачи на Pascal.

---

Answer 1

1)

var x,z:real;

begin

   read(x);

if x<7 then z:=7-x</p>

else if x>9 then z:=x-9

else z:=x*x-40;

write(z:0:3);

Если х - число вещественное.