task body Cals is
   x : Matrix;
   y : Float;
begin
   loop
      select
         Server.det(x, y);
      or
         delay 2.0;
         myDet(x, y);
      end select;
   end loop;
end Cals;