var x,y: real;
Begin
Write ('Nhap x '); REadln(x);
Write('Nhap y '); Readln(y);
If (x*x+y*y)<=1 then z:=x*x+y*y
else if ((x*x+y*y)>1) and (y>=x) then z:=z+y;
else z:=0,5;
Write ('Z = ',z);
Readln;
End;
var x,y: real;
Begin
Write ('Nhap x '); REadln(x);
Write('Nhap y '); Readln(y);
If (x*x+y*y)<=1 then z:=x*x+y*y
else if ((x*x+y*y)>1) and (y>=x) then z:=z+y;
else z:=0,5;
Write ('Z = ',z);
Readln;
End;