program xyz;
uses crt;
var x,y,Z: real;
begin
   clrscr;
   write('Nhap x= '); readln(x);
  write('Nhap y= '); readln(y);
  if ((x*x)+(y*y)) <=1 then
  writeln ('gia tri cua Z la:',x*x+y*y:6:2) else
  if ((x*x) +(y*y)>1) and (y>=x) then
  writeln ('gia tri cua Z la:', x+y:6:2) else
  if ((x*x)+(y*y) >1) and (y<x) then
  writeln ('gia tri cua Z la:0.5');
  readln;
end.

đây là câu trả lời của mình, hy vọng sẽ giúp ích cho mọi ngưởi!