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

задача4

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

задача5

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