Помогите пожалуйста сделать программу по паскалю.

Question

Помогите пожалуйста сделать программу по паскалю.

---

Answer 1

Var x,y: real;
begin
  write(' x = ');  readln(x);
  if x<0 then y:=sqr(x)*x+2<br>  else y:=sqrt(x);
  writeln(' y = ',y:6:4);
end.