function fnz(x,y:real):real;
begin
  fnz:=sin(sqrt(x*x+y*y))/sqrt(x*x+y*y)+0.2
end;