По данным x, y составить программу в Паскале для вычисления функции z:
1) z=(min(x, y)+0,5))/(1+max^2(x, y)).

2)z=система max(x, y), x<0
                    min(x, y), x>=0.

1)var x,y,z,min,max:real;beginreadln(x,y);if x>y then beginmax:=x;min:=y;endelse if x<y thenbeginmax:=y;min:=x;end;z:=(min+0.5)/(1+sqr(max));writeln(z);end.2)var x,y,z,min,max:real;beginreadln(x,y);if x>y thenbeginmax:=x;min:=y;endelse if x<y thenbeginmax:=y;min:=x;end;if x<0 thenz:=maxelse if x>=0 thenz:=min;writeln(z);end.