Paskal решите пожалуйста

Question

Paskal решите пожалуйста

---

---

---

Answer 1

задача4

var
x,y: real;
begin
writeln ('введи x');
read (x);
if x>=3 then y:=-sqr(x)+3*x+9;
if x<3 then y:=x/(sqr(x)*x-6);<br>writeln ('y=',y);
end.

задача5

var
x,y: real;
begin
writeln ('введи x');
read (x);
if x>1 then y:=sin(sqr(x)+5*x);
if x<=1 then y:=4*x-12;<br>writeln ('y=',y);
end.