var x,y,z:real; begin write ('X = ');readln(x); write ('Y = ');readln(y); if (x<0) and (y<0) then z:=sqrt(sqr(x)+sqr(y)) else z:=0; writeln ('Z = ',z:0:4); readln; end.