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

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