помогите пожалйста.

[vladimir412]

по заданному значению x,y вычислить

Z= max(x+y,x*y/2),x≤0
min((x*y)1/2,x+y/2),x>0

[CYBERISLAM]

begin
writeln("X,Y=?");
readln (x,y);
if x<=0 then begin
s:=x+y;
p:=x*y/2;
if s>p then z:=s else z:=p;
end;
if x>0 then begin
p:=x*y/2;
s:=x+y/2;
if s<p then z:=s else z:=p;
end;
writeln ('z=',z);
end.

[CYBERISLAM]

перед begin пиши:

x,ys,p,z:real;

[vladimir412]

большое спасибо!