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

Question

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

---

Answer 1

program abc;

var x,y:real;

begin

readln(x);

if x

          begin

          y:=x+4;

          end;

if (x < 0) and (x

          begin

          y:=x*x+3;

          end;

if x > 7.5 then

          begin

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

          end;

writeln(y);

end.