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

program abc;

var x,y:real;

begin

readln(x);

if x lt;= 0 then

          begin

          y:=x+4;

          end;

if (x lt; 0) and (x lt;= 7.5) then

          begin

          y:=x*x+3;

          end;

if x gt; 7.5 then

          begin

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

          end;

writeln(y);

end.