Помогите написать упрощенную программу паскаль

program abc;

var x,y:real;

begin

readln(x);

if x <= 0 then

          begin

          y:=x+4;

          end;

if (x < 0) and (x <= 7.5) then

          begin

          y:=x*x+3;

          end;

if x > 7.5 then

          begin

          y:=x+((sqrt(x))/2);

          end;

writeln(y);

end.